String Zeichen für Zeichen nach ANSI-Codes durchsuchen? Wie?

[Luckie]

Falls dem so ist. Hier die Lösung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: String;
begin
  s := 'sdfvsa7843vskljc023dskjv3746';
  i := length(s);
  while i > 0 do
  begin
    if not (s[i] in ['0'..'9']) then
      Delete(s, i, 1);
    dec(i);
  end;
  ShowMessage(s);
end;