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