Игра"Жизнь"

[Inna9]

Ребят помогите написать код на Delphi)
я вот начала а дальше не знаю что делать
var
Form1: TForm1;
current:array [0..51] of string[1];
last:array [0..51] of string[1];
i,j,k:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
t.enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
t.enabled:=false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
for i:=0 to 51 do
for j:=0 to 51 do
sg.Cells[i,j]:='';
end;

procedure TForm1.SGSelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
sg.cells[ACol, ARow]:='*';
end;

procedure TForm1.TTimer(Sender: TObject);
begin
k:=0;
{for i:=0 to 51 do
for j:=0 to 51 do
current[i,j]:=sg.cells[j,i]; }// вот здесь красная строчка не пойму почему
for i:=1 to 50 do
for j:=1 to 50 do
if current[i,j]='' then
begin
if current[i-1,j-1]<>'' then
k:=k+1;
if current[i-1,j]<>'' then
k:=k+1;
if current[i-1,j+1]<>'' then
k:=k+1;
if current[i,j-1]<>'' then
k:=k+1;
if current[i,j]<>'' then
k:=k+1;
if current[i,j+1]<>'' then
k:=k+1;
if current[i+1,j-1]<>'' then
k:=k+1;
if current[i+1,j]<>'' then
k:=k+1;
if current[i+1,j+1]<>'' then
k:=k+1;


end;
end;

end.

[Человек_Борща]

я вот начала а дальше не знаю что делать

Продолжайте писать код...

вот здесь красная строчка не пойму почему

Ошибка. Текст её в студию.

[vasek123]

Ты комментарии, сперва, если не можешь выложить весь исходник дал бы... Тут мало экстрасенсов а что за объект

sg

не каждый догадается...

[doktor255]

Да тут и догадываться не надо. Ошибка как на ладони.

current:array [0..51] of string[1];// одномерный массив. Что такое [1] кстати?
...
current[i,j]//Как одномерный массив вдруг стал двумерным?

[Inna9]

var
  Form1: TForm1;
current:array [0..51] of string[1];
last:array [0..51] of string[1];
i,j,k:integer;
implementation

{$R *.dfm}
//включаем таймер
procedure TForm1.Button1Click(Sender: TObject);
begin
t.enabled:=true;
end;
//выключаем таймер
procedure TForm1.Button2Click(Sender: TObject);
begin
t.enabled:=false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
for i:=0 to 51 do
for j:=0 to 51 do
sg.Cells[i,j]:='';
end;
//ставим звездочки там где нужно
procedure TForm1.SGSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
sg.cells[ACol, ARow]:='*';
end;

procedure TForm1.TTimer(Sender: TObject);
begin
k:=0;
for i:=1 to 50 do
for j:=1 to 50 do
current[i,j]:=sg[j,i];//считываем инфр со StringGrida и заносим в массив
for i:=1 to 50 do
for j:=1 to 50 do
if current[i,j]=''  then //проверяем пусто ли рядом с поставленной звёздочкой
begin
  if current[i-1,j-1]<>'' then
  k:=k+1;   //считаем кол-во звездочек
    if current[i-1,j]<>'' then
    k:=k+1;
      if current[i-1,j+1]<>'' then
      k:=k+1;
        if current[i,j-1]<>'' then
        k:=k+1;
          if current[i,j]<>'' then
          k:=k+1;
            if current[i,j+1]<>'' then
            k:=k+1;
              if current[i+1,j-1]<>'' then
              k:=k+1;
                if current[i+1,j]<>'' then
                k:=k+1;
                  if current[i+1,j+1]<>'' then
                  k:=k+1;
                  if (k=2) or (k=3) then// djn nen dfot [p xt yflj gbcfnm
                

        end;
end;

end.

SG-ЭТО STRINGGRID



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.