首先,我有很多個label,,例如label1,label2,label3......labelN,是順序產生的。 這時後,我用一個For For I=1 to 10 do Begin Label「I呀」,caption := 'abc'; //for的第一次得到Label1.Caption := 'abc'; //for的第二次得到Label2.Caption := 'abc'; End; 就是這樣,各位有甚麼方法可以解決這個問題??

procedure TForm1.SetLabelCaption;
begin
  for i := 0 to ComponentCount - 1 do
  begin   
     if (Components[i] is TWinControl) and (Copy(TWinControl(Component[i]).Name, 1, 5)='Label') then
        TLabel(Component[i]).Caption:='abc';
  end;
end;

＠瞭解越多.懂得越少＠

為何不善用搜尋呢！ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=69749 procedure TForm1.Button1Click(Sender: TObject); var I:integer; FComponent : TComponent; begin For I:=1 to 10 do begin FComponent := FindComponent('Label' inttostr(I)); if Assigned(FComponent) and (FComponent is TLabel) then begin TLabel(FComponent).Caption:= 'ABC'; end; end;