mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 18:53:40 +02:00
22 lines
310 B
ObjectPascal
22 lines
310 B
ObjectPascal
|
|
{$MODE DELPHI}
|
|
type
|
|
aClass=class
|
|
private
|
|
aa:longint;
|
|
procedure bb(index:integer;value:longint);
|
|
public
|
|
property cc:longint index 1 read aa write bb;
|
|
end;
|
|
procedure AClass.bb(index:integer;value:longint);
|
|
begin
|
|
aa:=value;
|
|
end;
|
|
var
|
|
C:aClass;
|
|
begin
|
|
C:=aClass.Create;
|
|
C.cc:=1;
|
|
writeln(C.cc);
|
|
end.
|