Sorry das ich mich nur so schlecht ausdrücken könnte.
Heute min Informatik-Unterricht wurde uns die Lösung gezeigt:
Code:
For i := 1 to k do
begin
w1 := Random(6)+1;
w2 := Random(6)+1;
inc(summe[w1+w2]);
if (i mod 500 = 0) then application.Processmessage;
Listbox1.Clear;
For j := 2 to 12 do
Listbox1.items.add(inttostr(Summe[j];
end;
So, oder so Änlich..
Am Handy das zu schreiben ist schrecklich;(