Schachbrettmuster im Array

[JasonDX]

1. Verwende bitte die Delphi-Tags

Code:

[delphi]
und
[/delphi]

[Edit]Habs zu spät gesehn[/Edit]

2. Das füllen der Felder geht mit einem DrawGrid einfacher als mit einem StringGrid. Dafür kannst du dir dann die Methoden von TDrawGrid namens Canvas.FillRect und CellRect angucken, im Fall hilft die OH oder die Suche




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

[Sharky]

Zitat:

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!!

[tankm26]

Wegen der Texte/Messages:

Ja, die sind wirklich gemein. Es war nur eine Spielerei.

Das mit den delphi-tags mache ich beim nächsten mal natürlich. Sorry!

Die Möglichkeit von Sharky funktioniert wunderbar, danke erstmal!

Wenn man die Version von Chimaira weiterverfolgt, (Kommentar: Das mit ... Dafür kannst du dir dann die Methoden von TDrawGrid namens Canvas.FillRect und CellRect angucken, im Fall hilft die OH oder die Suche hab'
ich gar nicht kapiert.)

wie sähe das dann aus?

Ich war eben mit Sharky's Methode beschädtigt, hab sogar schon ein Foto davon gemacht (im Anhang).

Was bedeutet eigentlich if Odd(ACol) xor Odd(ARow)? Odd=? xor=?


Ich muss jetzt ersteinmal zum Essen. Bis gleich?

[tankm26]

so, das bild.

[JasonDX]

(Du kannst deine Beiträge, somit auch Titel und Anhang durch den Edit-button rechts oben editieren)

Meine Lösung würde so aussehen:

Delphi-Quellcode:

procedure FillRect(i, j: integer; Color: TColor);
begin
  DrawGrid1.Canvas.Brush.Color := Color;
  DrawGrid1.Canvas.FillRect(DrawGrid1.CellRect(i, j));
end;

Dabei ist aber zu beachten, dass dies in jedem OnShow-Ereignis zu erledigen ist, weil sich Canvas nicht von alleine neu zeichnet.


Also ist wohl Sharkys zu bevorzugen ;)


Bezüglich Odd: Meine OH sagt mir, dass dies eine Funktion ist, die mir sagt, ob eine Zahl gerade ist. Macht also das selbe wie (Zahl mod 2 = 0).
Bezüglich Xor: Xor ist ein boolscher operator mit folgender Wahrheitstabelle:
(exclusiv or)

Code:

a xor b = c
a b|c
---+-
0 0|0
0 1|1
1 0|1
1 1|0

Also wenn a <> b (wobei a, b und c immer boolean sein müssen)

[Sharky]

Zitat:

Zitat von Chimaira

... Bezüglich Odd: Meine OH sagt mir, dass dies eine Funktion ist, die mir sagt, ob eine Zahl gerade ist. Macht also das selbe wie (Zahl mod 2 = 0)....

Hai Chimaira,

Odd() gibt True zurück wenn die übergebene Zahl undgerade ist (x mod 2 <> 0) ;-)

[tankm26]

Danke!!!

[bigg]

Ein Schachbrett sieht für mich so aus. :P

PS: Du kannst gar kein Informatiker sein, höhstens
Auszubildender. In diesem Sinne angenehme pfingsten.

[tankm26]

Jetzt scheitere ich mittlerweile einen Tag daran, zwei Spieler in das Programm einzubinden, die abwechselnd rote und blaue Steine setzen.

Die Positionierung der Kreise auf dem Spielfeld funktioniert nicht.


Wo könnte hierbei ein Problem auftreten?

[Spoon]

Also bei mir funktioniert es einwandfrei wenn ich

Delphi-Quellcode:

spielfeld.ColCount:=ANZAHL+3;
spielfeld.RowCount:=ANZAHL+3;

durch

Delphi-Quellcode:

spielfeld.ColCount:=ANZAHL;
spielfeld.RowCount:=ANZAHL;

ersetzte. Mir ist sowieso schleierhaft, was genau du damit bezwecken wolltest...