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 !