|
Registriert seit: 21. Aug 2004
Ort: Lengerich
658 Beiträge
RAD-Studio 2009 Ent
|
Re: Buchstaben und andere Zeichen erkennen
9. Jul 2009, 16:15
Zitat von 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
Danke!
Narben am Körper sind ein Zeichen dafür, das man gelebt hat.
Narben auf der Seele sind ein Zeichen dafür, das man geliebt hat.
|