Quote (Matou)
Какая-то нитакая у тебя жизнь, у нас другая была)
Да вы правы есть несколько версий "жизни" каждый работает по своим правилам и алгоритмам.
А на счет генератора все вроде нормально:
Code
procedure TForm1.btn1Click(Sender: TObject);
begin
For I:=1 to 100 Do
For J:=1 to 100 Do
Begin
l[i,j]:=Random(4);
if (l[i,j]=2) then drwgrd1.canvas.Brush.Color := clRed else
if (l[i,j]=3) then drwgrd1.canvas.Brush.Color := clBlue else
drwgrd1.canvas.Brush.Color := clYellow;
drwgrd1.canvas.FillRect(drwgrd1 .CellRect(i,j));
end;
end;
