t_id
916
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950717479 | 1015786 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2196 } { Submitted by "Andrew Johnson" on 2002-10-22 } { e-mail: acjgenius@earthlink.net } Program bugtest; {$Mode ObjFPC} uses classes; type TSomeClass = Class private FTestString : AnsiString; public Property TestString : AnsiString read FTestString write FTestString; end; var TestClass : TSomeClass; begin TestClass := TSomeClass.Create; TestClass.TestString := TestClass.TestString + 'Whatever'; writeln(TestClass.TestString); if TestClass.TestString<>'Whatever' then begin writeln('Error!'); halt(1); end; TestClass.Free; end.