01-04-2009, 12:32 PM
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;بالتوفيق ,,
I'M Fly Like A G6