Как использовать очередь из элементов своего класса?
Т.е. типа STLовского queue <CBall> Ball;
uses system.Collections;
type
MyType =
class
private
value : Integer;
public
constructor Create(v : Integer);
begin
value := v;
end;
function Get : Integer;
begin
Get := value;
end;
end;
var
qc : Queue;
t1, t2 : MyType;
f1, f2 : Double;
begin
qc := new Queue;
t1 := new MyType(1);
t2 := new MyType(2);
f1 := 11.4;
f2 := 12.5;
qc.Enqueue(t1);
qc.Enqueue(t2);
qc.Enqueue(f1);
qc.Enqueue(f2);
foreach X : object in qc do
if X is MyType then write(MyType(X).Get, ' ') else write(X, ' ');
end.
1 2 11.4 12.5