String Filtern

[Angel4585]

Mein Vorschlag:

Delphi-Quellcode:

ZahlenString := ''; 
for i := length(Originalstring) downto 1 do 
 if OriginalString[i] in ['0'..'9'] then 
  Insert(OriginalString[i],Zahlenstring,0);