Alle nicht numerischen Zeichen aus String entfernen

[Matze]

Hi,

wie wäre es damit (nur schnell runtergetippt):

Delphi-Quellcode:

function GetNumerics(s: string): string;
var
  i: Integer;
  tmp_result: string;
begin
  tmp_result := '';

  for i := 1 to Length(s) do
  begin
    if s[i] in ['0'..'9', '.', ','] then
      tmp_result := tmp_result + s[i];
  end;

  result := tmp_result;
end;