mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
32 lines
371 B
ObjectPascal
32 lines
371 B
ObjectPascal
{$mode delphi}
|
|
|
|
unit tw9894a;
|
|
|
|
interface
|
|
|
|
Type
|
|
TMyInteger = Class
|
|
Value : Integer;
|
|
end;
|
|
|
|
TMyRec = record
|
|
MyInteger : TMyInteger;
|
|
end;
|
|
|
|
TMyClass = Class
|
|
FMyRec : TMyRec;
|
|
Private
|
|
Procedure DoSomething;
|
|
Property MyRec : TMyRec Read FMyRec;
|
|
end;
|
|
|
|
Implementation
|
|
|
|
Procedure TMyClass.DoSomething;
|
|
|
|
begin
|
|
MyRec.MyInteger.Value:=3;
|
|
end;
|
|
|
|
end.
|