Zahlen in einem String finden

[himitsu]

Wobei ich mich erstmal gefragt hatte, was tNumArray sein soll.

PS:

Delphi-Quellcode:

if (ord(Str[i]) >= 48) and (ord(Str[i]) <= 57) then begin

if (Str[i] >= '0') and (Str[i] <= '9') then begin

if CharInSet(Str[i], ['0'..'9']) then begin  // früher if Str[i] in ['0'..'9'] then begin

[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;

[shmia]

Also Elegant wäre ein Callback (Event) zu verwenden.

Delphi-Quellcode:

TNumberEvent = procedure(const number:string) of object;
procedure ExtractNumbers(const s : string; callback :TNumberEvent);
begin
  if not Assigned(callback) then Exit;
  // Rest ist Hausaufgabe
end;

Das Argument von TNumberEvent könnte auch ein Integer sein, aber dann besteht die Gefahr des Überlaufs.