Listbox Zahlen erhöhen

[günni0]

1) randomize; nur einmalig in FormCreate aufrufen und nicht bei jedem ButtonClick

2) lass das mit dem Array sein
3) die Würfelfunktion würde ich nach dem KISS-Prinzip schreiben

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
 Wuerfel1, Wuerfel2: 1 .. 6;
 Summe: 2 .. 12; // Das hier ist kein Array! Falls es hier Fehler beim Kompilieren gibt, schreib einfach Byte hin.
begin
 Wuerfel1 := Random(6) + 1;
 Wuerfel2 := Random(6) + 1;

 Summe := Wuerfel1 + Wuerfel2;
end;