11-06-2018, 07:51 PM
تحقق من انه يحتوي فقط على ارقام
function CheckNumber(const s: string): Boolean;
begin
Result := True;
try
StrToInt(s);
except
Result := False;
end;
end;
function CheckNumber(const s: string): Boolean;
begin
Result := True;
try
StrToInt(s);
except
Result := False;
end;
end;

