مشاهده نسخه کامل
: چگونه می توان اشیاء در دلفی را مانند ویژوال بیسیک به صورت آرایه(اندیس) در آورد
mojtaba802
25-03-2006, 00:41
:blush: چگونه می توان اشیاء در دلفی را مانند ویژوال بیسیک به صورت آرایه(اندیس) در آورد
که مثلا بتوانیم چنین کدی را بنویسیم
for i:=1 to 10 do
edit[i].text:='OK';
با تشکر :blush:
NoneForce
25-03-2006, 10:59
سلام
arrLabel : array[1..30] of TLabel;
بعد بايد عناصر آرايه را درست كنيد
arrLabel[1] := Tlabel.Create(...)
مرد مباح
26-03-2006, 12:51
درست همان طوري كه دوستمان گفت عمل كنيد.
البته توضيحات بيشتري را بايد تنظيم نماييد.
مثل
top , left, Height , ...
تا درست نمايش داده شود
mojtaba802
27-03-2006, 07:02
;)
ببخشید من خیلی متوجه توضیح شما نشده منظور این است که اگر کد زیر را بنویسیم جواب بدهد:
procedure TForm1.Button1Click(Sender: TObject);
var arrLabel : array[1..30] of TLabel; I:Byte;
begin
arrLabel[1] := Tlabel.Create(label1);
arrLabel[2] := Tlabel.Create(label2);
arrLabel[3] := Tlabel.Create(label3);
arrLabel[4] := Tlabel.Create(label4);
for I:=1 to 4 do arrLabel[i].Caption:='Delphi';
end;
end.
متشکرم از شما
:) منتظر جواب شما دوست عزیز هستم
NoneForce
27-03-2006, 09:31
سلام
براي درست كردن يك كنترل بايد خاصيتهاي اساسي اون را تعريف كنيد. مثل والد- محل - اندازه و ...
var
arrLabel : array[1..10] of TLabel;
begin
arrLabel[1] := TLabel.Create(Form1);
arrLabel[1].Left := 10;
arrLabel[1].Top := 10;
arrLabel[1].AutoSize := True;
arrLabel[1].Caption := 'Hello';
arrLabel[1].Visible := True;
arrLabel[1].Parent := Form1;
end;
آیا در دلفی مانند ویژوال اشیا آرایه ای index دارند؟
من چند شی آرایه ای ساخته ام میخواهم روی هر کدام از آنها که کلیک کردم آن شی عمل خاصی را انجام دهد. لطفا کمکم کنید ....با تشکر!!!
vBulletin , Copyright ©2000-2024, Jelsoft Enterprises Ltd.