اظهار Array فى Edit1

[Goblin]

[COLOR="RoyalBlue"]السلام عليكم و رحمة الله و بركاتة

فى هذا الكود, عند محاولة اظهار Array فى Edit1, يظهر لي Error يقول انه لا يمكن ذلك ؟ لماذا ؟[/COLOR]

كود :

var a : array [1..14] of string; b : integer; c : string; begin Randomize; repeat a[1] := '123'; c := '1'; until c = '1'; Edit2.Text := a;

[mohfa]

PHP كود :

Edit1.Text := a[1]; 


[mohfa]

لديك 14 مكان او لنقل 14 بلد هل يمكنك ان تزور كل هذه البلدان في يوم واحد سوف تقول لي لااستطيع ان لم نقول مستحيل .
اذا مالحل :
تزور كل مرة بلد حسب إختيارك او باستعمال Randomize;

PHP كود :

Edit1.Text := a[1]; 


[TF6M]

السلام عليكم

1- الحلقة خاطئة .

2- ما الهدف من العملية ؟ .

[Goblin]

لقد حذفت الحلقة, لا يهم, المهم هو, كيف تحويل Array كاملا to String ?

[TF6M]

لقد حذفت الحلقة, لا يهم, المهم هو, كيف تحويل array كاملا to string ?

حسب مافهمت من سؤالك :

كود :

Type TArray = Array [0..4]Of String; Function ArrayToStr(MyArray : TArray):String; Var I:Byte; Begin For I:= 0 To Length(MyArray)-1 Do Result:=Result + MyArray[I]; End; procedure TForm1.Button1Click(Sender: TObject); Const MyArray : TArray =('tf6','fet','dgf','uut','tre'); begin Edit1.Text:= [color=Red]ArrayToStr[/color](MyArray); end;

بالتوفيق ,,

[Goblin]

بضبط ! هذا ما كنت اقصد, جزاك الله خيرا.