|
Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
Delphi 3 Professional
|
Re: Fltern...
7. Okt 2009, 20:13
Hallo,
Delphi-Quellcode:
s := Edit1.Text;
for i:= 1 to length(s) do
if s[i] in ['0'..'9'] then
//keine Zahlen bitte
 Ein String beginnt bei Index = 1
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|