Работа с классами

[RomiKon]

День добрый господа. Сразу вопрос:
Допустим есть в моём распоряжении класс TMyClass и объект MyClass1: TMyClass. Освободится ли память занимаемая объектом, если я вызову FreeMem(MyClass1)? Какие проблемы может повлечь подобный ход?

Зачем это нужно? У меня односвязный список должен хранить любую информацию, в том числе и объекты классов, а по завершении программы он должен почистить все информационные поля.

[Utkin]

Какие проблемы может повлечь подобный ход?

Вылеты, нагоняй от виндовс.
FreeMem есть антогонист GetMem и потому их нужно использовать в паре и строго симметрично.
MyClass1.Free - вот решение по фень-шую.

У меня односвязный список должен хранить любую информацию, в том числе и объекты классов

Вот Вы их в деструкторе и удалять должны, как говорится кто нагадил, тот и убирает, причем в обратном порядке желательно (кто создался последним, того лучше убрать первым). Не нравится - топайте в языки со сборкой мусора.

[RomiKon]

Вы видно меня не поняли.
В элементе списка хранится указатель, и сам список не знает какие данные он хранит, следовательно и обращаться к ним не может.

TNode = class
    private
      FData: Pointer;
      FNext: TNode;
    public
      constructor Create; overload;
      constructor Create(AData: Pointer); overload;
      constructor Create(ANext: TNode); overload;
      constructor Create(AData: Pointer; ANext: TNode); overload;
      property    Data: Pointer read FData write FData;
      property    Next: TNode read FNext write FNext;
      procedure   FreeData;
      procedure   Free;
  end;
  TSingleLinkedList = class
    private
      FFirst: TNode;
      function  FCount: Integer;
      procedure FSetLength(AValue: Integer);
      function  FGetNodeToIndex(AIndex: Integer): TNode;
      function  FGetTailNode: TNode;
    public
      constructor Create;
      procedure   AddToEnd(AData: Pointer); virtual;
      procedure   AddToBegin(AData: Pointer); virtual;
      property    Count: Integer read FCount write FSetLength;
      property    First: TNode read FFirst write FFirst;
      property    Nodes[AIndex: Integer]: TNode read FGetNodeToIndex;
      procedure   Free;
  end;

...

procedure TNode.FreeData;
begin
  if FData <> nil then
    FreeMem(FData);
end;

procedure TNode.Free;
begin
  FreeData;
  if FNext <> nil then
    FNext.Free;
  Inherited;
end;

...

procedure TSingleLinkedList.Free;
begin
  if FFirst <> nil then
    FFirst.Free;
  Inherited;
end;

[Utkin]

Вы видно меня не поняли.

Естественно, в первом вашем посте написано несколько иное.
В любом случае есть методика, и если Вы хотите избежать неожиданных и необъяснимых вылетов программы и утечек памяти, то

FreeMem(FData);

допускается только если где-то был GetMem с данной структурой.

и сам список не знает какие данные он хранит

И как один из возможных вариантов выхода из проблемы - что Вам мешает: а) Хранить инфу о природе объекта b) Пользоваться RTTI - Вы может и не в курсе, че там у Вас в очереди, но Дельфи то по-любому знает

[RomiKon]

Ясно, спасибо. Будем пробовать.