كيفية قلب النص داخل Edit

[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته

عندي قيمة في Edit

مثلا 158rty789io45666

كيف يمكن بعد عكسها تصبح

66654oi987ytr851

وشكرا لكم مسبقا

[onexite]

PHP كود :

procedure TForm1.btn1Click(Sender: TObject);
var i,j:Integer;
s:string;
begin
  j:=Length(edt1.text);
 for i:=1 to j do
  s:=s+edt1.Text[j-i]   ;
  ShowMessage(s);
end; 


[onexite]

حل اخر اضنه افضل من الاول

PHP كود :

procedure TForm1.btn1Click(Sender: TObject);
var i:Integer;
s:string;
begin
 for i:=Length(edt1.text) downto 1 do
  s:=s+edt1.Text[i]   ;
  ShowMessage(s);
end; 


[S.FATEH]

استخدام الوحدة:

كود :

uses StrUtils;

كود :

Edit1.Text := ReverseString(Edit1.Text);

[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته

الحل الثاني افضل لانه اعطاني النتيجة صح
بارك الله فيك اخي OnExite

[onexite]

السلام عليكم و رحمة الله تعالى و بركاته

الحل الثاني افضل لانه اعطاني النتيجة صح
بارك الله فيك اخي OnExite

PHP كود :

procedure TForm1.btn1Click(Sender: TObject);
var i,j:Integer;
s:string;
begin
  j:=Length(edt1.text);
 for i:=0 to j-1 do
  s:=s+edt1.Text[j-i]   ;
  ShowMessage(s);

end;