Zahlen in einem String finden

[nuclearping]

Zitat von ATS3788:

Danke, Danke

Gut zu wissen das es leider nicht elegant geht.

Manchmal sieht mir hier so geniale Lösungen
wo man sich sagt, Oh das war aber klug.

Im Grunde brauchst du nichtmal Ord. Du brauchst nur 'ne Schleife:

Delphi-Quellcode:

var
 sInput, sOutput: String;
 i: Integer;
begin
  sInput := 'abc1def6q3uz3sdd8as2';
  sOutput := '';
  for i := 1 to Length(sInput) do
    if sInput[i] in ['0'..'9'] then
      sOutput := sOutput + sInput[i];
end;