Prüfen ob String oder Integer

[oki]

Hi,

bemühe auch mal die Suche, sonst so

Delphi-Quellcode:

Function IsNum(Text : String) : Boolean;
var Index : Integer;
begin
  Result := False;
  IF Text = '' then Exit;
  For Index := 1 to Length(Text) do
    IF not (Text[Index] in ['0' .. '9'] then Exit; 
  Result := true;
end;

gruß oki