ist jetzt ohne syntaxcheck getippt, sollte aber das prinzip zeigen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer; arr: array[1..49] of integer;
begin
for i := 0 to 99 do
ListBox1.Items.Add(inttostr(random(49) + 1));
for i := 1 to 49 do
arr[i] := 0;
for i := 0 to pred(ListBox1.Count) do
inc(arr[strtoint(ListBox1.Items[i])]);
for i := 1 to 49 do
ListBox2.Items.Add(inttostr(arr[i]));
end;
//edit: bugfix