String formatieren (nur Zahlen)

[DeddyH]

Ich weiß nicht, ob es da schon etwas vorgefertigtes gibt, also versuch es mal so.

Delphi-Quellcode:

function NurZahlen(const 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;