木 木吉 Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-22 #1 我建立了Label0~Label9,现在想用一个循环来依次更改其Caption的值, 我应该如何实现?谢谢了。
X xianjun Unregistered / Unconfirmed GUEST, unregistred user! 2003-05-22 #2 procedure TForm1.Button1Click(Sender: TObject); var I: Integer; FLabel: TComponent; begin for I := 1 to 10 do begin FLabel := FindComponent('Label' + IntToStr(I)); if Assigned(FLabel) then (FLabel as TLabel).Caption := 'Test' + IntToStr(I); end; end;
procedure TForm1.Button1Click(Sender: TObject); var I: Integer; FLabel: TComponent; begin for I := 1 to 10 do begin FLabel := FindComponent('Label' + IntToStr(I)); if Assigned(FLabel) then (FLabel as TLabel).Caption := 'Test' + IntToStr(I); end; end;