paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 22:48:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2004-01-06 16:41:16 +00:00
parent 78024ed54c
commit 51d415e253
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
tests/webtbs/tw2865.pp Normal file
View File

@ -0,0 +1,30 @@
{ %version=1.1 }
{$mode objfpc}
{ Source provided for Free Pascal Bug Report 2865 }
{ Submitted by "Eric Grange" on 2003-12-30 }
{ e-mail: egrange@glscene.org }
unit tw2865;
interface
uses Classes;
type
TVector = array [0..3] of Single;
TGLUpdateAbleObject = class (TPersistent)
end;
TGLCoordinates = class (TGLUpdateAbleObject)
private
{ Private Declarations }
FCoords : TVector;
published
{ Published Declarations }
property X : Single index 0 read FCoords[0];
end;
implementation
end.