delphi4arab منتديات دلفي للعرب

[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;

PHP كود :
Edit1.Text := a[1]; 

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

PHP كود :
Edit1.Text := a[1]; 

السلام عليكم

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

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

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

goblin كتب :لقد حذفت الحلقة, لا يهم, المهم هو, كيف تحويل 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;

بالتوفيق ,,

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

delphi4arab منتديات دلفي للعرب

Goblin

mohfa

mohfa

TF6M

Goblin

TF6M

Goblin