blob: 4a2785be4d26db860e0ae12af5320b7f7c5b8a16 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ Old file: tbs0212.pp }
{ problem with properties OK 0.99.11 (PFV) }
program proptest;
{$mode objfpc}
type
TMyRec = record
Int: Integer;
Str: String;
end;
TMyClass = class
private
FMyRec: TMyRec;
public
property AnInt: Integer read FMyRec.Int;
property AStr: String read FMyRec.Str;
end;
begin
end.
|
