اظهار Array فى Edit1 - نسخة قابلة للطباعة

اظهار Array فى Edit1 - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اظهار Array فى Edit1 (/showthread.php?tid=754)

اظهار Array فى Edit1 - Goblin - 31-03-2009

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

اظهار Array فى Edit1 - mohfa - 31-03-2009

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

اظهار Array فى Edit1 - mohfa - 31-03-2009

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

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

اظهار Array فى Edit1 - TF6M - 31-03-2009

السلام عليكم

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

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

اظهار Array فى Edit1 - Goblin - 01-04-2009

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

اظهار Array فى Edit1 - TF6M - 01-04-2009

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;

بالتوفيق ,,

اظهار Array فى Edit1 - Goblin - 01-04-2009

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