+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إجرائية التي تقوم بحدف المسافة من الامام و الخلف (/showthread.php?tid=3002)
إجرائية التي تقوم بحدف المسافة من الامام و الخلف - abdelmalek - 17-04-2011
السلام عليكم ورحمة الله وبركاته
اتذكر انه توجد إجرائية تقوم بحدف المسافة من الامام و الخلف لكن نسيتها .:confused:
ماهي هاته الاجرائية ؟
مثلا :
PHP كود :
' delphi4arab'
' delphi4arab '
تصبح هكذا :
PHP كود :
'delphi4arab'
بارك الله فيكم
إجرائية التي تقوم بحدف المسافة من الامام و الخلف - TF6M - 17-04-2011
السلام عليكم و رحمة الله و بركاته
PHP كود :
function Trim(const S: string): string;
var
I, L: Integer;
begin
L := Length(S);
I := 1;
while (I <= L) and (S[I] <= ' ') do Inc(I);
if I > L then Result := '' else
begin
while S[L] <= ' ' do Dec(L);
Result := Copy(S, I, L - I + 1);
end;
end;
//Or
Uses
SysUtils;
...
Trim(' delphi4arab');
إجرائية التي تقوم بحدف المسافة من الامام و الخلف - abdelmalek - 17-04-2011
بارك الله فيك اخي و أستاذي TF6M
حلت المشكلة .
هذاماكنت ابحث عليه :
PHP كود :
Trim(' delphi4arab');