Schachbrettmuster im Array

[Sharky]

Zitat von Chimaira:

....@Sharky: Ok, mit deiner Methode gehts auch, bloß nicht 'and not', sondern 'xor' nehmen

*g* Ist mir eben auch aufgefallen

Delphi-Quellcode:

procedure TForm1.spielfeldDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if Odd (Acol) XOR (Odd (ARow)) then
  begin
    spielfeld.Canvas.Brush.Color := clBlack;
  end;
  spielfeld.Canvas.FillRect(Rect);
end;

@tankm26: Die beiden "ShowMessage-Texte" sind aber nicht wirklich notwendig!!