Ist String eine gültige Zahl?"

[Smokey]

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