Hallo
es klappt jetzt--- ihr seid echt super
vielen herzlichen dank
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Menge: set of Byte;
i,y: Integer;
begin
Menge := []; //Menge initialisieren
Randomize; //Zufallsgenerator initialisieren
for i := 1 to 6 do
begin
repeat
y := Random(49)+1; //Zahl generieren
until not (y 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;
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;