G goltiger Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-27 #1 例如Label1、Label2、Label3、Label4...我如何在程序中使用for 进行调用它们
F formiss Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-27 #2 var i : integer;begin for i := 1 to 4 do begin TLabel('label' + IntToStr(i)); end;end;
G goltiger Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-27 #3 procedure TForm1.FormCreate(Sender: TObject);var i : integer;begin for i := 1 to 4 do begin TLabel('label' + IntToStr(i)).Caption :='kjkjd'; end;end;出现错误提示！请指教
procedure TForm1.FormCreate(Sender: TObject);var i : integer;begin for i := 1 to 4 do begin TLabel('label' + IntToStr(i)).Caption :='kjkjd'; end;end;出现错误提示！请指教
D de410 Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-27 #5 procedure TForm1.FormCreate(Sender: TObject);var i : integer;begin for i := 1 to 4 do begin tlabel(Self.Components).Caption:='kjkjd'; end;end;
procedure TForm1.FormCreate(Sender: TObject);var i : integer;begin for i := 1 to 4 do begin tlabel(Self.Components).Caption:='kjkjd'; end;end;
G goltiger Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-27 #6 谢谢！原来是这样！tlabel(findcomponet('label'+inttostr(i))).caption:='';
D de410 Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-27 #7 FindComponent方法 对应对象：所有组件声明：function FindComponent(const AName: string): TComponent;功能：FindComponent方法在当前的组件的Components数组中指出给定的组件。被传递给FindComponent中的字符串是被寻找的组件名。例如“Edit1”,“Label1”。FindComponent将返回该组件(如果它存在)，否则将返回空。
FindComponent方法 对应对象：所有组件声明：function FindComponent(const AName: string): TComponent;功能：FindComponent方法在当前的组件的Components数组中指出给定的组件。被传递给FindComponent中的字符串是被寻找的组件名。例如“Edit1”,“Label1”。FindComponent将返回该组件(如果它存在)，否则将返回空。
