كيف أعكس ما تم كتابته ب edit1

[mjunior]

السلام عليكم إخواني

كيف أعكس ما تم كتابته ب 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; 


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

[TF6M]

فقط إستعمل إحدى الدالتين ؟؟ هناك العديد من الحلول لك كل الحرية ,,

كود :

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;

[maosalah]

استعمل الحلقة for احسن

var i :integer;
begin
edit2.text := '';
for i := length(edit1.text) downto 1 do
edit2.text := edit2.text + edit1.text[i];
end;

[mjunior]

شـــــــــــــــــكرا و جزاكم الله كل خير.

[hanipino]

او استعمال الدالة 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; 


[Dr.MOT]

السلام عليكم ,,

قمت بحاولة جيدة بـ Loop سبقني الإخوان بها ,,

أرفقت مثالا للتوضيح أكثر ,,

[mjunior]

شكرا لك اخي و جزاك الله كل خير.

[AL-MOB4RM3G]

اخي الكريم hanipino ,,, ماذا تعني

PHP كود :

P^ := AText[i]; 


وبلأخص:

PHP كود :

^ 


بارك الله فيك ؟

[TF6M]

اخي الكريم hanipino ,,, ماذا تعني

PHP كود :

P^ := AText[i]; 


وبلأخص:

PHP كود :

^ 


بارك الله فيك ؟

http://www.delphi4arab.net/forum/showthread.php?tid=626

بالتوفيق ,,

[AL-MOB4RM3G]

نعم بارك الله لك اخي الكريم على الرابط,,