22-04-2009, 06:17 PM
فقط إستعمل إحدى الدالتين ؟؟ هناك العديد من الحلول لك كل الحرية ,,
كود :
Function Inv_1 (S:String):String;
Var I:Byte;
Begin
For I:=1 To Length(S) Do
Result:=S[I]+Result;
End;
Function Inv_2 (S:String):String;
Var I:Byte;
Begin
For I:=Length(S) DownTo 1 Do
Result:=Result+S[I];
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Edit2.Text:=Inv_2(Edit1.Text);
End;I'M Fly Like A G6