mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:08:22 +02:00
27 lines
304 B
ObjectPascal
27 lines
304 B
ObjectPascal
{$mode delphi}
|
|
uses ub0489;
|
|
type oo = class
|
|
function getmyint:integer;
|
|
property someprop:integer read getmyint;
|
|
end;
|
|
|
|
function oo.getmyint:integer;
|
|
|
|
begin
|
|
result:=1;
|
|
end;
|
|
|
|
|
|
|
|
procedure test2;
|
|
|
|
var ch:char;
|
|
x : oo;
|
|
|
|
begin
|
|
test(x.someprop,ch,1);
|
|
end;
|
|
|
|
begin
|
|
end.
|