mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
33 lines
400 B
ObjectPascal
33 lines
400 B
ObjectPascal
{$mode delphi}
|
|
|
|
unit tw9894;
|
|
|
|
interface
|
|
|
|
Type
|
|
PMyInteger = ^TMyInteger;
|
|
TMyInteger = record
|
|
Value : Integer;
|
|
end;
|
|
|
|
TMyRec = record
|
|
MyInteger : PMyInteger;
|
|
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.
|