t_id
667
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022521116 | 1027348 | True | False | Successfully run |
Record count: 1
{ %version=1.1 } {$mode delphi} { taken from fpc-devel mailing list, posted by } { "Morten Juel Skovrup"} program tb0451; type TDoubleArray = array of Double; TTestProp = record TestItem : Double; end; TTestPropArray = array of TTestProp; TTestClass = class private FTestProp: TTestPropArray; public constructor Create; destructor Destroy; override; property TestProp : TTestPropArray read FTestProp; end; procedure Init(var AnArray : array of Double); var i : Integer; begin for i:=0 to High(AnArray) do AnArray[i] := 1; end; var Test : TDoubleArray; i : Integer; TestClass : TTestClass; constructor TTestClass.Create; begin inherited Create; SetLength(FTestProp,2); end; destructor TTestClass.Destroy; begin Finalize(FTestProp); inherited Destroy; end; begin SetLength(Test,5); Init(Test); //!!! FPC compile error - Delphi compiles fine... for i:=0 to High(Test) do WriteLn(Test[i]); Finalize(Test); TestClass := TTestClass.Create; with TestClass.TestProp[1] do //!!! FPC stops with runtime-error 201 TestItem := 2; WriteLn(TestClass.TestProp[0].TestItem); WriteLn(TestClass.TestProp[1].TestItem); TestClass.Free; end.