Zahlen aus String extrahieren

[scrat1979]

Mal schnell zusammengeflickt....

Delphi-Quellcode:

function ExtractNumbers(s : String) : String;
var i : Integer;
begin
 Result := '';
 for i := 1 to length(s) do
  if s[i] in ['0'..'9'] then Result := Result + s[i]
end;

Könntest auch zuerst alle Nicht-Zahlen aus dem String löschen und dann den "Reststring" dem Result zuordnen.