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

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

عندي قيمة في Edit

مثلا 158rty789io45666

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

66654oi987ytr851

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

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; 

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

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; 

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

كود :
uses StrUtils;

كود :
Edit1.Text := ReverseString(Edit1.Text);

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

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

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

الحل الثاني افضل لانه اعطاني النتيجة صح
بارك الله فيك اخي 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; 

Anter2010

onexite

onexite

S.FATEH

Anter2010

onexite