Hallo,
Zitat von
school- delphi:
also wenn man das so versucht- klappts leider nicht--- unendlich viele zahlen in der listbox erscheinen dann.
Das glaub ich dir nicht
Der Rechner hat nur endlichen Speicher
Ich meinte das eher so:
Delphi-Quellcode:
begin
for i:= 1 to 6 do
begin
// Solange Zahlen testen bis wir ein neue noch nicht in der Listbox stehende in Y haben
repeat
Y:= random(49)+1;
until ListBox1.Items.IndexOf(IntToStr(y))=-1;
ListBox1.Items.Add(inttostr(y));
end;
end;
[edit]
Verdammt, wieder Bummelletzter
[/edit]