لماذا هذ المنتدى في خمول

function TForm1.Convert (TXT : String):String;
Var
  STR : String;
  I   :Integer;
Begin
  Str:='';
  I:=Length(TXT);
  If I>0 Then
     Repeat
        If I>1 Then begin
           Str:=Str+Copy(TXT,I-1,2);
           I:=I-2;
        end
        Else Begin
           Str:=Str+Copy(TXT,I,1);
           I:=I-1;
        end;

     Until I=0;
  Result:=STR;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   edit2.Text:=Convert(Edit1.Text);
end;

السلام عليكم 

ضع الوحدة strUtils  ضمن الوحدات المستخدمة في نموذجك .

ثم استخدم الدالة الجاهزة .

 ReverseString(const AString : string): string;

طريقة الاستخدام سهلة جدا 

Myrev := ReverseString('Hello');

تحياتي

اقتباس

لماذا هذ المنتدى في خمول

 

سؤال وجيه لكن شخصيا ليس لدية الاجابة 

يا هلا بالأفاضل

يعني لو لم يطرح هذا سؤال ما كنا نراكم ؟

الأخ sky

استعمل محرر الأكواد ورمزه <>

السلام عليكم 

اهلا اخي احمد 

انا في الحقيقة مشغول في امور كثيرا لكن لست غائب كما اننا تعودنا على الاسئله المتكرر لا يوجد الجديد .

انا اتعلم الان في HTML 5 لكن لااضن انها ستفيد شي هنا في منتدى الدلفي .