blob: a57be84025558905d4231719f87970aa50bf3a3b (
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
{ %norun }
{$mode objfpc}
unit tw8232;
interface
type
PTestItem1 = ^TTestItem1;
TTestItem1 = record
IntegerItem: Integer;
ShortStringItem: string;
end;
TTestClass1 = class(TObject)
private
function GetItems(Index: Integer): TTestItem1;
public
property Items[Index: Integer]: TTestItem1 read GetItems;
end;
PTestItem2 = ^TTestItem2;
TTestItem2 = record
ShortStringItem: string[255];
end;
TTestClass2 = class(TObject)
private
function GetItems(Index: Integer): TTestItem2;
public
property Items[Index: Integer]: TTestItem2 read GetItems;
end;
PTestItem3 = ^TTestItem3;
TTestItem3 = record
IntegerItem: Integer;
ShortStringItem: string[255];
end;
TTestClass3 = class(TObject)
private
function GetItems(Index: Integer): TTestItem3;
public
property Items[Index: Integer]: TTestItem3 read GetItems;
end;
implementation
function TTestClass1.GetItems(Index: Integer): TTestItem1;
begin
end;
function TTestClass2.GetItems(Index: Integer): TTestItem2;
begin
end;
function TTestClass3.GetItems(Index: Integer): TTestItem3;
begin
end;
end.
|
