blob: c10ade172ad483c057d41da6da86be38782e19b5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
{ 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.
|
