freepascal.ru

Код: Выделить всё

tpolygon = class
    private
        fvertex     : tlist;
        fholes      : tlist;
        ffill_hash  : tlist;
        ....
end;                    

Код: Выделить всё

TPointF = record
        X : Real;
        Y : Real;
    end;         

Код: Выделить всё

procedure tpolygon.add_vertex(x : real; y : real);
var
    p : ^tpointf;
begin
    new(p);
    p^.x := x;
    p^.y := y;
    fvertex.add(p);
end;                              

Код: Выделить всё

destructor tpolygon.destroy();
var
    i : integer;
begin
    for i := 0 to fvertex.count - 1 do
    begin
        tpointf(fvertex[i]).free;  // здесь получаю ошибку: trpolygon.pas(116,9) Error: Illegal type conversion: "Pointer" to "TPointF"
        // здесь же пытался почиститься так: dispose(tpointf(fvertex[i]));   ---> ошибка та же самая(если убрать приведение к tpointf то ругается, мол Error: use of NEW or DISPOSE is not possible for untyped pointers
)
    end;
    fvertex.destroy();

    for i := 0 to fholes.count - 1 do
        tpolygon(fholes[i]).free;
    fholes.destroy();

    for i := 0 to ffill_hash.count - 1 do
        tyitem(ffill_hash[i]).free;
    ffill_hash.destroy();
end;                                     

Код: Выделить всё

type PPointF = ^TPointF;
...
Dispose(PPointF(fvertex[i]));

Код: Выделить всё

destructor tpolygon.destroy();
var
    i : integer;
    p : ^tpointf;
begin
    for i := 0 to fvertex.count - 1 do
    begin
        //методу free тут не место, это процедура классов, а не записей.
        p :=fvertex[i]; //Если не ошибаюсь так должно работать
        dispose(p);
    end;
    fvertex.Free;
end;    

Код: Выделить всё

PPointF=^tpointf; ///Это тогда в типах добавить надо, если как kazalex написал.

Код: Выделить всё

tpolygon.add_vertex(p : tpointf)