Zahlen in einem String finden

[p80286]

ich denke er möchte so etwas machen

Delphi-Quellcode:

myarray = array [0..255] of integer;

fillchar(myarray,sizeof(myarray),#0);
for i:=1 to length(mystring) do
  inc(myarray[byte(mystring[i]),1)];

for i:=byte('0') to i:=byte('9') do
  writeln(char(i)+' '+inttostr(myarray[i]);

Gruß
K-H