16-12-2008, 01:25 PM
و عليكم السلام و رحمة الله
استعمل دالة Trim لحذف الفراغات، يمكنك استدعاءها فقط من SysUtils دون كتابة الدالة كاملة
ثانيا وضع شرط : if x <> '' then
بالتوفيق ان شاء الله
استعمل دالة Trim لحذف الفراغات، يمكنك استدعاءها فقط من SysUtils دون كتابة الدالة كاملة
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;
ثانيا وضع شرط : if x <> '' then
بالتوفيق ان شاء الله

