Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
Delphi 12 Athens
|
Re: Ist String eine gültige Zahl?"
16. Dez 2003, 11:48
Wenn Du Val nicht willst (Achtung: bei Vall ist XC auch eine Zahl ) dann:
Delphi-Quellcode:
function IsInt(s: string): boolean;
var
I: Integer;
begin
for i := 0 to length(s) do
if not (StrToInt(s[i]) in [0..9]) then
begin
result := False;
Exit;
end;
Result := True;
end;
... ...
Daniel Lizbeth Ich bin nicht zurück, ich tue nur so
|