- Код: Выделить всё
unit tetr_geometry;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Graphics;
******
type
TTPixel=class(TTBase)
RIS_EXEC: boolean;
procedure RIS();
procedure CalcCoord();
function Stop(ASP: array [0..9, 0..19] of TTPixel): boolean;
tetr_geometry.pas(43,30) Fatal: Syntax error, "OF" expected but "[" found
Видимо, я чего-то не понимаю. В данной ситуации получается только с одномерным динамическим массивом, т.е.
- Код: Выделить всё
function Stop(ASP: array of TTPixel): boolean;
При попытке использовать динамический 2d, получается вот что:
- Код: Выделить всё
function Stop(ASP: array of array of TTPixel): boolean;
tetr_geometry.pas(34,16) Warning: An inherited method is hidden by "destructor TTBase.Destroy;"
tetr_geometry.pas(43,33) Error: Type identifier expected
tetr_geometry.pas(43,33) Fatal: Syntax error, ")" expected but "ARRAY" found
Как быть? Одномерный массив я могу использовать, но это будет неудобно. Лучше б с 2d.