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