mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 21:28:21 +02:00
25 lines
362 B
ObjectPascal
25 lines
362 B
ObjectPascal
{$mode delphi}
|
|
{$M+}
|
|
|
|
type
|
|
TFooR = object { put "record" here and it works. }
|
|
Thing : integer;
|
|
end;
|
|
|
|
TFoo = class
|
|
private
|
|
fRecord : TFooR;
|
|
published
|
|
property Thing : integer read fRecord.Thing;
|
|
end;
|
|
|
|
var
|
|
fFoo : TFoo;
|
|
begin
|
|
fFoo := TFoo.Create;
|
|
fFoo.fRecord.Thing:=123;
|
|
if (fFoo.Thing <> 123) then
|
|
halt(1);
|
|
fFoo.free;
|
|
end.
|