String Filtern

[mumu]

warum nicht einfach das delete weglassen?!

Delphi-Quellcode:

ZahlenString := '';
for i := 1 to length(Originalstring) do 
if OriginalString[i] in ['0'..'9'] then 
begin 
  ZahlenString := ZahlenString + OriginalString[i]; 
end;