mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 19:09:22 +01:00
b3867488fb
+ uses getref for extracting error code
+ required command lines args can be place in the first line of
source code
following $OPT=
34 lines
552 B
ObjectPascal
34 lines
552 B
ObjectPascal
type
|
|
tobject1 = class
|
|
readl : longint;
|
|
function readl2 : longint;
|
|
procedure writel(ll : longint);
|
|
procedure writel2(ll : longint);
|
|
property l : longint read readl write writel;
|
|
property l2 : longint read readl2 write writel2;
|
|
end;
|
|
|
|
procedure tobject1.writel(ll : longint);
|
|
|
|
begin
|
|
end;
|
|
|
|
procedure tobject1.writel2(ll : longint);
|
|
|
|
begin
|
|
end;
|
|
|
|
function tobject1.readl2 : longint;
|
|
|
|
begin
|
|
end;
|
|
|
|
var
|
|
object1 : tobject1;
|
|
i : longint;
|
|
|
|
begin
|
|
i:=object1.l;
|
|
i:=object1.l2;
|
|
object1.l:=123;
|
|
end. |