Hat geklappt!! Danke dir sind noch 2 Schreibfehler drin
if( s[ i ] in [ '0'..'9' ] ) then ZahlStr:=ZahlStr+'s[i]; // wenn Zahl dann an den Zahlstr
Da muss das Hochkomma vor dem s weg[/delphi]
or ( S]i]>'9') // Zeichen ist >'9', also oberhalb vom Zahlenbereich
Dort muss die klammer vor dem i um gedreht werden.
Super Oldmax, danke dir wirklich unglaublich !! 