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