Sorry, hatte gerade keine Zeit gehabt...
Die Sache ist die...
Ich hab ein Programm in dem 2 "Würfel" gewürfelt werden und die Augenzahlen dann addiert werden (also nur Zahlen von 2 bis 12).
Jetzt möchte ich die Zahlen [hab eine Variable summe : Array[2..12] of Integer;] in eine Listbox schreiben. Das ist auch kein Problem.
Bei meinem Info-Lehrer habe ich gesehen dass die Zahlen (in der Listbox) nicht aus dem nichts auftauchen, sondern sich erhöhen also z.B: Für 7: 1 --> 2 --> 3 --> 4 --> 5 ...
oder so.
Da ich ein Array habe weis ich jetzt nicht wie man das macht dass sich die Zahlen erhöhen...
Meine Idee war, die Items aus der Listbox immer wieder zu löschen und neu reinzuschreiben um die Zahlen zu erhöhen.
Hier die Prozedur um zu würfeln:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i,k,w1,w2 : integer;
summe : array[2..12] of Integer;
begin
randomize;
button1.enabled := false;
k := strtoint(edit1.Text);
nabled := false;
listbox1.Clear;
for i := 2 to 12 do
summe[i] := 0;
for i := 1 to k do
begin
listbox1.Clear;
w1 := Random(6)+1;
w2 := Random(6)+1;
inc(summe[w1+w2]);
sleep(50);
end;
for i := 2 to 12 do
begin
listbox1.Items.Add(floattostr(summe[i]));
end;
button1.Enabled := true;
end;