String formatieren (nur Zahlen)

[marabu]

Hier habt ihr noch was zum drüber meditieren:

Delphi-Quellcode:

function ExtractDigits(const s: string): string;
var
  i, iLength: Integer;
begin
  SetLength(Result, Length(s));
  iLength := 0;
  for i := 1 to Length(s) do
    if s[i] in ['0'..'9'] then
    begin
      Inc(iLength);
      Result[iLength] := s[i];
    end;
  SetLength(Result, iLength);
end;

Freundliche Grüße