1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
unit tdefaultproperty1;
{$mode objfpc}{$H+}
interface
type
TNamedObj = class
public
Name: string;
end;
{ TBaseObject }
TBaseObject = class
private
function GetObject(Index: Integer): TNamedObj;
public
property Objects[Index: Integer]: TNamedObj read GetObject; default;
end;
implementation
{ TBaseObject }
function TBaseObject.GetObject(Index: Integer): TNamedObj;
var
I: Integer;
begin
Self.Objects{declaration:tdefaultproperty1.TBaseObject.Objects}[I].Name{declaration:tdefaultproperty1.TNamedObj.Name}:='';
Self[I].Name{declaration:tdefaultproperty1.TNamedObj.Name}:='';
end;
end.
|
