paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 22:28:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ test

Browse Source 
git-svn-id: trunk@6246 -
This commit is contained in:
florian 2007-01-28 18:07:58 +00:00
parent 77b155ea79
commit 82c8c48793
2 changed files with 58 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8015,6 +8015,7 @@ tests/webtbs/tw8222.pp svneol=native#text/plain
tests/webtbs/tw8222a.pp svneol=native#text/plain
tests/webtbs/tw8222b.pp svneol=native#text/plain
tests/webtbs/tw8229.pp svneol=native#text/plain
tests/webtbs/tw8232.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain

57
tests/webtbs/tw8232.pp Normal file
View File

@ -0,0 +1,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.