Problem bei StrToInt ist halt, dass er ne
Exception schmeisst, was bei VAL nicht der Fall ist, weil dir der zweite Integerwert eben angibt ob ein Fehler aufgetreten ist.
Daher würde ich entweder die
Exception abfangen, doch einfach VAL benutzen, oder aber den Code ohne StrToInt machen indem du einfach auf Strings prüfst :
Code:
function IsInt(s: string): boolean;
var
I: Integer;
begin
for i := 0 to length(s) do
[color=red]if not (s[i] in ['0'..'9']) then[/color]
begin
result := False;
Exit;
end;
Result := True;
end;
Allerdings bin ich trotz allem ein Verfechter von VAL oder
Exception abfangen
