Zahlen in einem String finden

[ATS3788]

Delphi-Quellcode:

function CountNumber(const Str: string): tNumArray;
var
i,a       : integer;
begin
   FillChar(Result , SizeOf(tNumArray) , 0);
   a := 0;
   for i := 1 to length(Str) do
   if (ord(Str[i]) >= 48) and (ord(Str[i]) <= 57) then begin
     Result[a] := StrToInt(Str[i]);
     inc(a);
   end;
end;

Also habe das so gemacht, geht echt gut
ist aber nicht "ELEGANT"

Wie komme ich darauf. In C++ geht vieles,
laßt mich sagen anders. Manches dort ist
"ELEGANT" anderes einfach schwer zu lesen,
dedewegen liebe ich Delphi

[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