إجرائية التي تقوم بحدف المسافة من الامام و الخلف

[abdelmalek]

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

اتذكر انه توجد إجرائية تقوم بحدف المسافة من الامام و الخلف لكن نسيتها .:confused:
ماهي هاته الاجرائية ؟
مثلا :

PHP كود :

'  delphi4arab'
' delphi4arab ' 


تصبح هكذا :

PHP كود :

'delphi4arab' 


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

[TF6M]

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

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]

بارك الله فيك اخي و أستاذي TF6M

حلت المشكلة .
هذاماكنت ابحث عليه :

PHP كود :

Trim('  delphi4arab');