+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية قلب النص داخل Edit (/showthread.php?tid=5340)
كيفية قلب النص داخل Edit - Anter2010 - 24-06-2013
السلام عليكم و رحمة الله تعالى و بركاته
عندي قيمة في Edit
مثلا 158rty789io45666
كيف يمكن بعد عكسها تصبح
66654oi987ytr851
وشكرا لكم مسبقا
كيفية قلب النص داخل Edit - onexite - 24-06-2013
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;
كيفية قلب النص داخل Edit - onexite - 24-06-2013
حل اخر اضنه افضل من الاول
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;
كيفية قلب النص داخل Edit - S.FATEH - 24-06-2013
استخدام الوحدة:
كود :
uses StrUtils;كود :
Edit1.Text := ReverseString(Edit1.Text);كيفية قلب النص داخل Edit - Anter2010 - 24-06-2013
السلام عليكم و رحمة الله تعالى و بركاته
الحل الثاني افضل لانه اعطاني النتيجة صح
بارك الله فيك اخي OnExite
كيفية قلب النص داخل Edit - onexite - 24-06-2013
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;