Buchstaben und andere Zeichen erkennen

[BrunoT]

Hallo emsländer

Delphi-Quellcode:

s:string;
i:Integer;

Begin

for i:=1 to Length(s) do
Begin
  if s[i] NOT in ['0'..'9'] then
   fehler;
end;

oder

Delphi-Quellcode:

if StrToIntDef(s,0)=0 then
fehler;

Da war einer schneller


mfg

Holger