فرستادن یک ارایه عددی در یک edit

[rsheytoonak]

سلام میخواستم یک ارایه عددی رو تویه یک edit بریزم باید چکار کنم؟

[Felony]

اگر از دلفی 2009 یا 2010 استفاده میکنید :

var
AArray: Array [1..10] of Integer;
Num: integer;
begin
for Num in AArray do
Edit1.Text:= Edit1.Text+ IntToStr(Num);
end;

در غیر این صورت :

var
AArray: Array [1..10] of Integer;
Num: integer;
begin
for Num:=Low(AArray) to High(AArray) do
Edit1.Text:= Edit1.Text+ IntToStr(AArray[Num]);
end;