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

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

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

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

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

كود :
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;

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

إقتباس : var i :integer;
begin
edit2.text := '';
for i := length(edit1.text) downto 1 do
edit2.text := edit2.text + edit1.text[i];
end;

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

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

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

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

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

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

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

PHP كود :
P^ := AText[i]; 

وبلأخص:

PHP كود :
^ 

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

AL-MOB4RM3G كتب :اخي الكريم hanipino ,,, ماذا تعني

PHP كود :
P^ := AText[i];
وبلأخص:

PHP كود :
^
بارك الله فيك ؟

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

بالتوفيق ,,

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

mjunior

TF6M

maosalah

mjunior

hanipino

Dr.MOT

mjunior

AL-MOB4RM3G

TF6M

AL-MOB4RM3G