D:\glscene\Source\GLMisc.pas(409,92) Error: This symbol isn't allowed as storage symbol
и далее еще несколько подобных. в коде строки пометил ">"
- Код: Выделить всё
TGLNode = class (TCollectionItem)
private
{ Private Declarations }
FCoords : TVector;
procedure SetAsVector(const value: TVector);
procedure SetAsAffineVector(const value : TAffineVector);
function GetAsAffineVector : TAffineVector;
procedure SetCoordinate(AIndex: Integer; AValue: TGLFloat);
protected
{ Protected Declarations }
function StoreCoordinate(AIndex: Integer) : Boolean;
function GetDisplayName : String; override;
public
{ Public Declarations }
constructor Create(ACollection : TCollection); override;
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
function AsAddress : PGLFloat;
property AsVector : TVector read FCoords write SetAsVector;
property AsAffineVector : TAffineVector read GetAsAffineVector write SetAsAffineVector;
> property W: TGLFloat index 3 read FCoords[3] write SetCoordinate stored StoreCoordinate ;
published
{ Published Declarations }
> property X: TGLFloat index 0 read FCoords[0] write SetCoordinate stored StoreCoordinate ;
> property Y: TGLFloat index 1 read FCoords[1] write SetCoordinate stored StoreCoordinate ;
> property Z: TGLFloat index 2 read FCoords[2] write SetCoordinate stored StoreCoordinate ;
end;
Fpc 2.0.4
Lazarus 0.9.22
Эээ... это fpc 2.0.4 не знает что такое stored ?