تشکیل آرایه ای از اشیا

[fire.angle]

با سلام خدمت کلیه اساتید عزیر

لطفآ من رو راهنمایی کنید


چطور میشه در دلفی آرایه ای از اشیا را تشکیل داد بصورتی که بتوان مثلا با استفاده از یک حلقه For به این عناصر مثلا ( Edit ) دسترسی داشت


در vb این کار به سادگی انجام می شود ولی در دلفی من نم دونم که این کار رو چطور باید انجام داد

لطفآ من رو راهنمایی کنید

ممنون

[BORHAN TEC]

شاید این مثالها مشکلتون رو حل کنه:
مثال 1:


procedure TForm1.btn1Click(Sender: TObject);
var
ArrBtn: array [1 .. 4] of TButton;
a: TButton;
begin
ArrBtn[1] := TButton.Create(Self);
ArrBtn[1].Parent := Self;
ArrBtn[1].Left := 100;
ArrBtn[1].Top := 100;
end;

مثال 2:

procedure TForm1.btn1Click(Sender: TObject);
var
ArrBtn: array [1 .. 4] of TButton;
I: Integer;
begin
for I := Low(ArrBtn) to High(ArrBtn) do
begin
ArrBtn[I] := TButton.Create(Self);
end;
ArrBtn[1].Parent := Self;
ArrBtn[1].Left := 100;
ArrBtn[1].Top := 100;
ArrBtn[2].Parent := Self;
ArrBtn[2].Left := 200;
ArrBtn[2].Top := 200;
end;

البته بهتون پیشنهاد می کنم که این قبیل سوالات رو در بخش مباحث عمومی دلفی و پاسکال بیان کنید. :قلب: