Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
9. Dez 2004
Hi Lisa,
in dem Fall solltest du dir mal die Hilfe zu Mengen ansehn. Ein Beispiel mit mengen:
var Menge: set of Byte;
i: Integer;
begin
Menge := ; //Menge initialisieren
Randomize; //Zufallsgenerator initialisieren
for i := 1 to 6 do
Forum: Object-Pascal / Delphi-Language
Delphi
by alcaeus,
9. Dez 2004
Hallo Lisa,
erstmal verwende bitte die -Tags (ohne Leerzeichen), dann kann man den Code auch vernuenftig lesen.
Zum Problem: Der Code den du gepostet hast ist falsch. Du willst ja keine Zahl doppelt haben. Nachdem du kein Set benutzt, musst du es so machen wie Fiasko gesagt hat:
for i:= 1 to 6 do
begin
repeat
Y:=random(49)+1;
until ListBox1.Items.IndexOf(IntToStr(y))=-1;
...
