Начну издалека. Есть комплексное число и массив этих чисел. Хочу сделать всё через interface. Итак:
| Код |
IObject = interface
function to_s: string; // в виде строки
end;
TComplex = class(TInterfacedObject, IObject)
Real, Imag: extended;
function to_s: string;
end;
|
IObject делаю, потому что в дальнейшем от него получу комплексный вектор и матрицу. Создаю массив:
| Код |
var
m:array of IObject;
|
| Код |
procedure Add(const obj:IObject);
begin
SetLength(m,Length(m)+1);
m[Length(m)-1]:=obj;
end;
|
| Код |
setlength(m,0);
add(TComplex.Create);
add(TComplex.Create);
|
| Код |
TComplex(m[0]): (0, 0, 0)
|
| Код |
TComplex(m[0]): (0, 0, 3,6854775808e-987)
|
|