unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Dyn = Array of integer;
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
test:Dyn;
i: integer;
begin
SetLength(test,3);
test[0]:=1;
test[1]:=2;
test[2]:=3;
for i:=0 to Length(test)-1 do
Label???.Caption:=inttostr(test[i]); //紅色部分我要怎麼做才能讓Label1對test[0]，Label2對test[1]
end;
end.

小弟寫的程式碼是 Label 'i' .Caption:=inttostr(test[i 1]);
錯誤訊息為 [Error] Unit1.pas(39): Statement expected but 'LABEL' found
麻煩各位大大跟小弟說明一下，小弟一直試不出來，謝謝各位~~

編輯記錄

TLabel(FindComponent('Label' IntToStr(i 1))).Caption := inttostr(test[i]);
end;

------
努力會更接近成功

編輯記錄

謝謝pceyes大大，讓我學到如何應用，再次謝謝您唷~~︿︿