我想請問一下 譬如:我如果想要按下Buton後Label1 ~ Label10裡面, 更改裡面的Caption之類的動作 像是用for 來寫 Label[x].caption:= XXXX 這樣子的漸進式改變 公式該如何寫? 我不想寫成 Label1.Caption:=XXX . . . Label10.Caption:=XXX 有10行的話...該怎麼樣去寫成類似Array的樣子? 不曉得各位高手們是否聽的懂我所說的QQ 如果聽的懂,拜託指導一下 謝謝

可以定義 Labels : Array[1..10] of TLabel; 再用動態建立元件的方式 如 For I:=1 to 10 do begin Labels[I] := TLabel.Create(Self); Labels[I].Parent := Self; .... end; 發表人 - wameng 於 2004/10/18 20:55:21

請使用 FindComponent 這個 function, 如,    

var
  i: integer;
begin
  for i:=1 to 3 do
  begin
    if FindComponent('Label'   IntToStr(i)) is TLabel then
      (FindComponent('Label'   IntToStr(i)) as TLabel).Caption := 'mytext' IntToStr(i);
  end;
end;

插個花,另提供種作法 Procedure TForm1.Button1Click(Sender: TObject); Var I: Integer; Begin For I:= 0 To ComponentCount - 1 Do Begin If Components[I] Is TLabel Then Begin {如果您有各LABEL有各自的名稱因應則下行則視需求更改} If Copy(TLabel(Components[I]).Name,1,5) = 'Label' Then TLabel(Components[I]).Caption := 'XXXX' IntToStr(I); End End; End; ========================= 讀萬卷書~不如來K.TOP走一遭 =========================