Game Of Life - ich könnte etwas Hilfe gebrauchen, bitte

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Lenuam.

In Pascal (Delphi) kannst du mit einem IF-Statement immer nur ein einzelnes Statement ausführen. Willst du dort mehrere Statements ausführen, dann musst du sie zu einem Block zusammenfügen.

Delphi-Quellcode:

const
  LifeSymbol: array [Boolean] of Char = (' ', '0'); // 0 = Leben, Leerzeichen = kein Leben

procedure TForm1.Button3Click(Sender: TObject);
var
  i, j, counter: Integer; // hier und nicht anderswo
begin
  for i := 1 to 8 do
    for j:= 1 to 8 do
    begin // block beginnen
      counter := 0; // initialisieren
      Inc(counter, Ord(OL[i - 1, j - 1]));
      Inc(counter, Ord(OL[i + 1, j + 1]));
      Inc(counter, Ord(OL[i + 1, j - 1]));
      Inc(counter, Ord(OL[i - 1, j + 1]));
      Inc(counter, Ord(OL[i, j - 1]));
      Inc(counter, Ord(OL[i, j + 1]));
      Inc(counter, Ord(OL[i - 1, j]));
      Inc(counter, Ord(OL[i + 1, j]));
      NL[i,j] := counter in [2, 3];
      StringGrid1.Cells[i, j] := LifeSymbol[NL[i, j]];
    end; // block beenden
end;

Freundliche Grüße