قلب كلمة

[salah07230]

السلام عليكم
عندي مثلا كلمة دلفي اريد ان اقلب حروفها هكذا
delphi to hilpde

وشكرا

---

اسف تم ايجاد الحل

function Swap(A: Integer): Integer;
asm
{$IFDEF CPUX64}
MOV EAX,ECX
{$ENDIF !CPUX64}
BSWAP EAX
end;

[Samer Assil]

الأمر موجود في الباسكال .. هو ReverseString و AnsiReverseString
موجود في مكتبة StrUtils .. او  System.StrUtils إذا كنت تستخدم دلفي XE وما فوق

كود :

uses StrUtils . . str := ReverseString (str);