Проблема с переполнением памяти

[maxeebon]

Написал программу, но видимо где то забыл очистить память. В программе сделал класс для "бездонного" стека. Вопрос: Правильно ли реализован destroy класса? или я чегото недописал?

Код:

interface

DataType = TMyClass;
 PStack = ^Stack;
 Stack = record
  state: Byte;
  data: DataType;
  next: PStack;
 end;
 TStack = class
 private
  FHead: PStack; //FHead всегда указывает на верхний элемент
  FCheckEmpty: boolean; //false если стек пустой
 public
  destructor destroy;
  procedure Add(Data: DataType);
  function Take: DataType;
  function look: DataType;  
  property CheckEmpty: boolean read FCheckEmpty;
 end

implementation

destructor TStack.destroy;
var
 tmp: PStack;
begin
 tmp := FHead;
 while tmp <> nil do
 begin
  FHead := Fhead^.next;
  tmp^.data.Free;
  dispose(tmp);
  tmp := FHead;
 end;
end;

procedure TStack.Add(Data: DataType);
var
 temp: PStack;
begin
 if FCheckEmpty = false then
 begin
  FCheckEmpty := true;
  new(FHead);
  FHead^.data := Data;
  FHead^.next := nil;
 end
 else
 begin
  new(temp);
  temp^.next := Fhead;
  Fhead := temp;
  Fhead^.data := Data;
 end;
end;

function TStack.Take: Datatype;
var
 temp: PStack;
begin
 if FcheckEmpty = true then
 begin
  result := FHead^.data;
  temp := FHead;
  Fhead := Fhead^.next;
  dispose(temp);
 end;
 if FHead = nil then
  FCheckEmpty := false;
end;

function TStack.look: DataType;
begin
 result := Fhead^.data;
end;

[mss]

Правильно ли реализован destroy класса?

Неправильно и объявлен и реализован (отсутствует спецификатор перекрытия override и вызов унаследованного деструктора), хотя в случае прямого наследования TObject (у тебя именно этот случай) это не принципиально.
Да и вызова деструктора как таковой у тебя отсутствует напрочь.

TMyClass - это у тебя что ? Некий класс ? Тогда где вызов деструктора объектов этого класса ?

[maxeebon]

Сообщение от mss

Неправильно и объявлен и реализован (отсутствует спецификатор перекрытия override и вызов унаследованного деструктора), хотя в случае прямого наследования TObject (у тебя именно этот случай) это не принципиально.
Да и вызова деструктора как таковой у тебя отсутствует напрочь.

TMyClass - это у тебя что ? Некий класс ? Тогда где вызов деструктора объектов этого класса ?

класс удаляется тут

destructor TStack.destroy;
 ...
 tmp^.data.Free;
 ...
end;

А оверрайд тут нужен или где?

 public
  ...
  destructor destroy; override;
  ...

Сообщение от mss

Да и вызова деструктора как таковой у тебя отсутствует напрочь.

А зачем сейчас вызов, если это просто описание класса? Вызывать деструктор буду соответственно во время работы основной программы.

[Stilet]

Stack = record

А я бы описал это не записью а классом, тогда можно было бы изучить устройство TObjectList и использовать его механизмы в своей программе, или еще проще - использовать TObjectList, который следит за уборкой мусора.

[GunSmoker]

http://www.gunsmoker.ru/2009/05/blog-post_24.html