+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : قلب كلمة (/showthread.php?tid=7318)
قلب كلمة - salah07230 - 24-11-2015
السلام عليكم
عندي مثلا كلمة دلفي اريد ان اقلب حروفها هكذا
delphi to hilpde
وشكرا
اسف تم ايجاد الحل
function Swap(A: Integer): Integer;
asm
{$IFDEF CPUX64}
MOV EAX,ECX
{$ENDIF !CPUX64}
BSWAP EAX
end;
RE: قلب كلمة - Samer Assil - 24-11-2015
الأمر موجود في الباسكال .. هو ReverseString و AnsiReverseString
موجود في مكتبة StrUtils .. او System.StrUtils إذا كنت تستخدم دلفي XE وما فوق
كود :
uses StrUtils
.
.
str := ReverseString (str);