|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.556 Beiträge
Delphi 11 Alexandria
|
Re: 6 aus 49 will nicht so richtig
20. Sep 2009, 15:48
Aus dem Kopf:
Delphi-Quellcode:
Memo.Lines.Clear;
for i := 1 to 6 do
begin
repeat
Zahl := Random(49) + 1;
until Memo.Lines.IndexOf(IntToStr(Zahl)) < 0;
Memo.Lines.Add(IntToStr(Zahl));
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|