mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 19:19:24 +02:00
* fix property example
This commit is contained in:
parent
0f6f7f44c8
commit
6d45e6e4a3
@ -2086,7 +2086,7 @@ Type TPoint = Class(TObject)
|
||||
Public
|
||||
Property X : Longint index 1 read GetCoord Write SetCoord;
|
||||
Property Y : Longint index 2 read GetCoord Write SetCoord;
|
||||
Property Coords[Index : Integer] Read GetCoord;
|
||||
Property Coords[Index : Integer]:Longint Read GetCoord;
|
||||
end;
|
||||
Procedure TPoint.SetCoord (Index : Integer; Value : Longint);
|
||||
begin
|
||||
@ -4481,8 +4481,8 @@ SmallInt = -32768..32767;
|
||||
Longint = $80000000..$7fffffff;
|
||||
byte = 0..255;
|
||||
word = 0..65535;
|
||||
dword = cardinal;
|
||||
longword = cardinal;
|
||||
dword = longword;
|
||||
cardinal = longword;
|
||||
Integer = smallint;
|
||||
\end{verbatim}
|
||||
The following types are used for the functions that need compiler magic
|
||||
|
Loading…
Reference in New Issue
Block a user