Hi Lisa,
in dem Fall solltest du dir mal die Hilfe zu Mengen ansehn. Ein Beispiel mit mengen:
Delphi-Quellcode:
var Menge: set of Byte;
i: Integer;
begin
Menge := []; //Menge initialisieren
Randomize; //Zufallsgenerator initialisieren
for i := 1 to 6 do
repeat
y := Random(49)+1; //Zahl generieren
until y not in Menge; //Ueberpruefen ob Zahl schon in Menge
Menge := Menge + [y]; //Zahl zu Menge hinzufuegen
ListBox1.Items.Add(IntToStr(y)); //Zahl zu Listbox hinzufuegen
end;
end;
Wichtig: Ich hab den Code nicht getestet, er sollte aber funktionieren.
Greetz
alcaeus