我有 100 個 Label1 到 Label100  請教可以用 變數來指定我要改變的元件嗎 ? 我現在都用 

i:=10;
case i of
 1: Label1.caption := 'test';
 2: Label2.caption := 'test';
  .
  .
 100: Label100.caption := 'test';
end;

很笨的寫法 , 能夠改善嗎 ?

cwc65536 您好： 可用 ComponentCount 來寫比較好 如此比較好去維護你的程式

procedure TForm1.Button1Click(Sender: TObject);
Var
  ALabel: TLabel;
  AIndex : Integer;
begin
  for AIndex := 0 to Self.ComponentCount - 1 do
    if  Self.Components[AIndex] is TLabel  then
    begin
      ALabel := TLabel( Self.Components[AIndex] );
      if ALabel.Name = 'Label10' then
        ALabel.Caption := 'Test';
    end;
end;        

Hi cwc65536 您好    請參考下面的小小 sample：

 
procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  for i:=0 to (Form1.ControlCount-1) do
    if (Form1.Controls[i] is TLabel) then
      TLabel(Form1.Controls[i]).Caption:='Test';
end;

如果中間需還有什麼變化的話，個人建議您可以使用 Tag 再做分別。 例如 Label50 ~ Label75 的 Caption 要為 'Test2' 的話：

 
  for i:=0 to (Form1.ControlCount-1) do
    if (Form1.Controls[i] is TLabel) then
      if (TLabel(Form1.Controls[i]).Tag in [50..75]) then
        TLabel(Form1.Controls[i]).Caption:='Test2'
      else 
        TLabel(Form1.Controls[i]).Caption:='Test';

就可以了

插花懶人寫法 for i:=1 to 100 do TLablel(FindComponent('Label' IntTostr(i))).Caption:='test'; 搞不懂!搞不懂!永遠都搞不懂!!

mine 您好 我也是懶人, 請問 Component 的有效範圍是: 整個程式 or Form ? 我在 DataModule 中, 要設定 Form1.Label1 的 caption , 如何作 ?

大大你好 Findcomponent 範圍僅就單一個form 類似函數應用還有很多例如樓上二位大大所提的,sendmessage的應用 Uses unit1; for i := 1 to 100 do TLabel(form1.FindComponent('label' intTostr(i))).Caption:='test'; 搞不懂!搞不懂!永遠都搞不懂!! 發表人 - mine 於 2005/08/23 09:42:06