Integer aus String mit anderen Zeichen herraussuchen

[CLRS530]

Delphi-Quellcode:

Function ZahlAusString(ZahlString : String) : String;
var 
  TempString : String;
  i, dummy : Integer;
begin
  i := 1;
  TempString := '';
  While  i <= Length(ZahlString) do
  begin
    if TryStrToInt(Copy(ZahlString, i, 1), dummy) then //Testet ob der Wert eine Integer- Zahl
      TempString := TempString + Copy(ZahlString, i, 1);
    inc(i)
  end;
  ZahlAusString := TempString
end;

So ich hoffe, ich habe verstanden was du möchtest und das das eine gute Antwort für dich ist.