t_id
1281
t_adddate
2004/04/12
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950719592 | 1015786 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3041 } { Submitted by "C Western" on 2004-04-06 } { e-mail: mftq75@dsl.pipex.com } program bug2; {$mode objfpc}{$H+} uses Classes; type TMyCollectionItem = class(TCollectionItem) public procedure Assign(Source: TPersistent); override; end; procedure TMyCollectionItem.Assign(Source: TPersistent); begin end; var A, B: TCollection; C: TMyCollectionItem; begin A := TCollection.Create(TMyCollectionItem); B := TCollection.Create(TMyCollectionItem); C := TMyCollectionItem.Create(A); Writeln(A.Count); B.Assign(A); Writeln(B.Count); if B.Count<>A.Count then begin writeln('Error!'); halt(1); end; end.