大家帮忙看看哪里出错了

Question

procedure TForm1.bsSkinXFormButton1Click(Sender: TObject);
begin
bsskinedit1.Text:=inttostr(strtoint(bsskinedit1.Text)-1);
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
bsskinedit1.Text:=bsskinedit1.Text;
end;
procedure TForm1.bsSkinXFormButton2Click(Sender: TObject);
var a:textfile;
begin
assignfile(a,'c:\1.txt');
rewrite(a);
writeln(a,bsskinedit1.text);
closefile(a);
end;procedure TForm1.FormCreate(Sender: TObject);
var
a:textfile;
s:string;
begin
  assignfile(a,'c:\1.txt');
  reset(a);
  readln(a,s);
  bsskinedit1.Text:=(s);
  closefile(a);
end;
procedure TForm1.bsSkinXFormButton3Click(Sender: TObject);
begin
 bsskinedit2.Text:=inttostr(strtoint(bsskinedit2.Text)-1);
end;procedure TForm1.bsSkinXFormButton4Click(Sender: TObject);
begin
  bsskinedit3.Text:=inttostr(strtoint(bsskinedit3.Text)-1);
end;procedure TForm1.bsSkinXFormButton5Click(Sender: TObject);
begin
  bsskinedit4.Text:=inttostr(strtoint(bsskinedit4.Text)-1);
end;procedure TForm1.bsSkinXFormButton6Click(Sender: TObject);
begin
   bsskinedit5.Text:=inttostr(strtoint(bsskinedit5.Text)-1);
end;procedure TForm1.bsSkinXFormButton7Click(Sender: TObject);
begin
bsskinedit6.Text:=inttostr(strtoint(bsskinedit6.Text)-1);
end;procedure TForm1.bsSkinXFormButton8Click(Sender: TObject);
begin
bsskinedit7.Text:=inttostr(strtoint(bsskinedit7.Text)-1);
end;procedure TForm1.bsSkinXFormButton9Click(Sender: TObject);
begin
bsskinedit8.Text:=inttostr(strtoint(bsskinedit8.Text)-1);
end;end.

Answer 1

没看出什么来呀,你要问的是什么呀
在timer 中你的这句是什么意思呀,没懂.
bsskinedit1.Text:=bsskinedit1.Text;