random

[r2c2]

Zitat von glitterangel87:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   for i:= 1 to 6 do
    begin
      randomize;
      a[i]:=random(49)+1;
    end;
...

wo kann der fehler liegen?

Also einen Fehler hab ich gefunden, wenn es auch IMHO nicht der ist, der ne 0 hervorbringen könnte:
Randomize sollte man im Create aufrufen und dann möglichst nie mehr. So erhälst du(außer du hast wirklich n extrem langsamen PC) 6 mal die selbe Zahl.

mfg

Christian