Zahlen aus einem String filtern und in einem neuen anzeigen

[Daniel B]

Hallo,

hiermit kann man also alle Zahlen aus einem String rausfiltern und als neuen String zusammensetzen und anzeigen.

Delphi-Quellcode:

function OnlyInt(const sTemp: String; const ValidChars: TCharSet): String;
var
  iDest: Integer;
  iSource: Integer;
begin
  SetLength(Result, Length(sTemp));
  iDest := 0;
  for iSource := 1 to Length(sTemp) do
    if sTemp[iSource] in ValidChars then
    begin
      Inc(iDest);
      Result[iDest] := sTemp[iSource];
    end;
  SetLength(Result, iDest);
end;

function NewString(const sTemp: String): String;
begin
  Result := OnlyInt(sTemp, ['0'..'9'])
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(NewString('sdfghfdsghzf7zg87zt874tr8734trfdwgt4e87'));
end;

Grüsse, Daniel

[Daniel B]

Hallo,

kleiner Nachtrag noch:

TCharSet ist so deklariert:

Delphi-Quellcode:

type
  TCharSet = Set of Char;

Grüsse, Daniel