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