Nur zahlen im string

[marabu]

Hallo Michael,

du solltest Result zuerst initialisieren.

Hier noch eine Alternative:

Delphi-Quellcode:

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

Freundliche Grüße