Fehlermeldung -> weiß nicht warum

[brutus]

mein programm funktioniert zwar aber es nervt trotzdem !

Code:

[Warnung] UTStack.pas(20): Methode 'Destroy' verbirgt virtuelle Methode vom Basistyp 'TObject'

ich denke dass es irgendwas mit nem destructor zu tun haben muss hier ist der qt:

  destructor destroy;

Delphi-Quellcode:

Destructor TStack.destroy;
begin
entferne;
inherited destroy;
end;

hier die procedure entferne

Delphi-Quellcode:

procedure TStack.entferne;
begin
WHILE NOT empty do reduce
end;

ich merke es geht immer wieter in den qt

Delphi-Quellcode:

function TStack.empty;
begin
result:=Kopf=NIL;
end;

und hier ist reduce

Delphi-Quellcode:

procedure TStack.reduce;
VAR h:PKnoten;
begin
IF NOT empty THEN
       BEGIN
       h:=Kopf;
       kopf:=kopf^.next;
       dispose(h);
       END;
end;

ihr merkt dass sich dass ewig weiter fortsetzen lässt nur soweit noch kopf ist ein record.

es wäre wirklich schön wenn ihr mir irgendeinen typ geben könntet !