mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 10:28:16 +02:00
37 lines
597 B
ObjectPascal
37 lines
597 B
ObjectPascal
{$mode objfpc}
|
|
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
|
|
object1:=tobject1.create;
|
|
i:=object1.l;
|
|
i:=object1.l2;
|
|
object1.l:=123;
|
|
end.
|