mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:28:14 +02:00
40 lines
769 B
ObjectPascal
40 lines
769 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 3564 }
|
|
{ Submitted by "Patrick Dietrich" on 2005-01-17 }
|
|
{ e-mail: patrick.dietrich@SPAM.informatik.ME.uni-ulm.NOT.de }
|
|
|
|
{$mode delphi}
|
|
|
|
type
|
|
StringArray = array of string;
|
|
|
|
TestClass = class(TObject)
|
|
public
|
|
FArr : StringArray;
|
|
function getArr: StringArray;
|
|
function getCopy: StringArray;
|
|
constructor create;
|
|
property arr : StringArray read getArr;
|
|
end;
|
|
|
|
function TestClass.getArr: StringArray;
|
|
begin
|
|
result := self.FArr;
|
|
end;
|
|
|
|
function TestClass.getCopy: StringArray;
|
|
begin
|
|
Result := Copy(arr, 0, Length(arr)-1);
|
|
end; { getCopy }
|
|
|
|
constructor TestClass.create;
|
|
begin
|
|
setLength( Farr, 3);
|
|
|
|
Farr[0] := 'one';
|
|
Farr[1] := 'two';
|
|
Farr[2] := 'three';
|
|
end;
|
|
|
|
begin
|
|
end.
|