+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أعكس ما تم كتابته ب edit1 (/showthread.php?tid=840)
كيف أعكس ما تم كتابته ب edit1 - mjunior - 22-04-2009
السلام عليكم إخواني
كيف أعكس ما تم كتابته ب edit1
مثال: عكس كلمة mjunior لتصبح roinujm
قمت بالمحاولة ولم اعرف المشكلة
PHP كود :
var v,s:string;
i,j:integer;
begin
s:=edit1.Text;
i:=length(s);
j:=1;
while i>=1 do
begin
v[j]:=s[i];
i:=i-1;
j:=j+1;
end;
edit2.Text:=v;
end;
كيف أعكس ما تم كتابته ب edit1 - TF6M - 22-04-2009
فقط إستعمل إحدى الدالتين ؟؟ هناك العديد من الحلول لك كل الحرية ,,
كود :
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;كيف أعكس ما تم كتابته ب edit1 - maosalah - 22-04-2009
استعمل الحلقة for احسن
إقتباس : var i :integer;
begin
edit2.text := '';
for i := length(edit1.text) downto 1 do
edit2.text := edit2.text + edit1.text[i];
end;
كيف أعكس ما تم كتابته ب edit1 - mjunior - 22-04-2009
شـــــــــــــــــكرا و جزاكم الله كل خير.
كيف أعكس ما تم كتابته ب edit1 - hanipino - 22-04-2009
او استعمال الدالة StrUtils ReverseString
PHP كود :
function ReverseString(const AText: string): string;
var
I: Integer;
P: PChar;
begin
SetLength(Result, Length(AText));
P := PChar(Result);
for I := Length(AText) downto 1 do
begin
P^ := AText[I];
Inc(P);
end;
end;
كيف أعكس ما تم كتابته ب edit1 - Dr.MOT - 23-04-2009
السلام عليكم ,,
قمت بحاولة جيدة بـ Loop سبقني الإخوان بها ,,
أرفقت مثالا للتوضيح أكثر ,,
كيف أعكس ما تم كتابته ب edit1 - mjunior - 23-04-2009
شكرا لك اخي و جزاك الله كل خير.
كيف أعكس ما تم كتابته ب edit1 - AL-MOB4RM3G - 23-04-2009
اخي الكريم hanipino ,,, ماذا تعني
PHP كود :
P^ := AText[i];
وبلأخص:
PHP كود :
^
بارك الله فيك ؟
كيف أعكس ما تم كتابته ب edit1 - TF6M - 23-04-2009
AL-MOB4RM3G كتب :اخي الكريم hanipino ,,, ماذا تعني
وبلأخص:PHP كود :P^ := AText[i];
بارك الله فيك ؟PHP كود :^
http://www.delphi4arab.net/forum/showthread.php?tid=626
بالتوفيق ,,
كيف أعكس ما تم كتابته ب edit1 - AL-MOB4RM3G - 24-04-2009
نعم بارك الله لك اخي الكريم على الرابط,,