Thema: FreePascal Tetris Klassendeklaration

Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.275 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Tetris Klassendeklaration

  Alt 9. Mär 2018, 08:18
Hallo,
Zitat:
Ist eine recht ungewöhnliche Typ-Definition.
Eigentlich nicht.
Es fehlt ja z.B. noch die Farbe.
Das p soll wohl anzeigen, welche Zellen (siehe unten TDrawGrid) von einem Block belegt sind.

Delphi-Quellcode:
const
  C_MIN = 1;
  C_MAX = 4;
type
  TBlock=record
    Belegt:array[C_MIN..C_MAX,C_MIN..C_MAX] of Boolean;
    Farbe: Integer;
  end;

type
  TBloecke = array of TOnePiece;
Statt der PaintBox bietet sich hier ein TDrawGrid an.
http://www.delphipraxis.net/66592-dr...infaerben.html
Heiko

Geändert von hoika ( 9. Mär 2018 um 08:22 Uhr)
  Mit Zitat antworten Zitat