8
PTestItem1 = ^TTestItem1;
11
ShortStringItem: string;
13
TTestClass1 = class(TObject)
15
function GetItems(Index: Integer): TTestItem1;
17
property Items[Index: Integer]: TTestItem1 read GetItems;
20
PTestItem2 = ^TTestItem2;
22
ShortStringItem: string[255];
24
TTestClass2 = class(TObject)
26
function GetItems(Index: Integer): TTestItem2;
28
property Items[Index: Integer]: TTestItem2 read GetItems;
31
PTestItem3 = ^TTestItem3;
34
ShortStringItem: string[255];
36
TTestClass3 = class(TObject)
38
function GetItems(Index: Integer): TTestItem3;
40
property Items[Index: Integer]: TTestItem3 read GetItems;
45
function TTestClass1.GetItems(Index: Integer): TTestItem1;
49
function TTestClass2.GetItems(Index: Integer): TTestItem2;
53
function TTestClass3.GetItems(Index: Integer): TTestItem3;