blob: b7220930aa9797ef9e0d111e770f40bef1fe96a2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{$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.
|
