Очищение памяти, занимаемой свойствами класса, при закрытии формы?

Question

[andreloster]

Приветствую.

Изучаю делфи и наткнулся на такую задачку: нужно очистить память, занимаемую свойствами экземпляра класса при закрытии формы.

Реализация такая (названия, естественно, выдуманные):

unit Unit1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ExtDlgs, ComCtrls;

type
  TForm1 = class(TForm)
    ...
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  end;

  MyClass = class
    St_L1, St_L2: TStringList;
    constructor Create();
  end;

  MainClass = class
    MyStrings: MyClass;
    ...
    procedure CreateMyClass();
  end;

var
  MC: MainClass;

implementation

{$R *.dfm}

constructor MyClass.Create();
begin
  St_L1 := TStringList.Create;
  St_L2 := TStringList.Create;
end;

destructor MyClass.Destroy();
begin
  St_L2 .Free;
  St_L2 .Free;
end;

procedure MainClass.CreateMyClass();
begin
  MyStrings := MyClass.Create();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MC.CreateMyClass();
end;

// ...

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MC.Destroy();
end;

end.

Есть смысл вообще писать деструктор для MyClass, если я экземпляр MC в конце уничтожаю => память, занимаемая двумя TStringList-ами, автоматом очищается в принципе? Если есть придирки к реализации, то прошу их вынести на всеобщее обозрение, так как учусь.

P.S. Такая реализация была выбрана из-за того, что хочу делать обращения к свойствам и методам моих дочерних классов через свой главный, "глобальный" класс (в данном случае, это MainClass)

Спасибо.

UPDATE продолжение 4-го вопроса

type
    Books = class
        Title: String;
        Author: String;
        PublYear: Integer;
        constructor Create(Title: String; Author: String; PublYear: Integer);
    end;
    
    Library = class
        Book: array [1..100] of Books;
        Counter;
        constructor Create();
        procedure AddBook(T: String; A: String; PY: Integer);
        function GetBookTitle(N: Integer): String;
    end;

constructor Create(Title: String; Author: String; PublYear: Integer);
begin
    self.Title := Title;
    self.Author := Author;
    self.PublYear := PublYear;
end;

constructor Library.Create();
begin
    Counter := 0;
end;

procedure Library.AddBook(T: String; A: String; PY: Integer);
begin
    Counter := Counter + 1;
    Book[Counter] := Books.Create(T, A, PY);
end;

function GetBookTitle(N: Integer): String;
begin
    Result := Book[N].Title;
end;

var
    LB: Library;

begin

    LB := Library.Create();
    LB.AddBook('Утиные истории', 'Дональд Дак', 2999);

    ShowMessage(LB.GetBookTitle(1));

end.

Answer 1

[M_PRO]

1. МС - не инициализирован.
То есть где-то ещё должно появиться:
MC := MainClass.Create;
В противном случае поведение программы не предсказуемо.

2. Никакого авто-удаления тут не будет. Если Вы в явном виде не удалили TStringList-ы, они так и останутся в памяти (что логично, потому что, например, Вы могли передать их в другие объекты). Отсюда следует, что FList типа TStringItemList (который по сути своей динамический массив) и все строки который в них хранятся останутся в памяти на веки вечные.

3. Если Вам интересно есть ли Вашей программе утечки памяти воспользуйтесь
reportmemoryleaksonshutdown := true;
Про подробности подскажет Google.

4. Про реализацию с глобальным классом - я не совсем понял технику, но выглядит она очень спорной.

5. MC.Destroy - лучше заменить на FreeAndNil(MC), но всё равно, нужно написать

TMainClass = class(TObject)
  ...
  destructor Destroy; override;
end;

...

destructor TMainClass.Destroy;
begin
  MyStrings.Free;
end;

6. Создание подобъекта процедурой CreateMyClass лучше перенести в конструктов "главного класса".

Comments

[andreloster]

1. Понятное дело, что не инициализирован, но вот где бы его инициализировать, чтобы его видимость распространялась по всей программе? Мне нужно использовать один экземпляр класса во всех процедурах и функциях, так как практически каждая взаимодействует с ним!
2. Понял.
3. Спасибо, погуглим!
4. Реализация с глобальным классом заключается в том, что я взаимодействую со всеми процедурами, функциями и свойствами (изменяю, вызываю и т.п.) менее значимых классов (например, для класса "Библиотека" это будет класс "Книги") через процедуры и функции главного класса ( в данном случае, это класс "Библиотека"), а в нем самом создаю переменные типов этих дочерних классов и уже через них провожу взаимодействие. Добавил к концу стартового топика пример.
5. Да, действительно, спасибо.
6. Вопрос исходит из первого, я уже об этом, кстати, думал, но, опять же, если бы знать, где инициализировать экземпляр класса, я бы создал отдельный конструктор для него и через него бы уже разметил нужную мне область.

[M_PRO]

1 и 6. <ирония> Как я понимаю Вы хотите написать этакий синглтон который и не совсем синглтон. ирония>. Если вам действительно нужен один экземпляр "главного" класса тогда оставьте его глобальной переменной и создавайте в секции initialization. Или в событии onCreate Вашей главной формы. Тут главное помнить, что к нему до создания нельзя обращаться. А в данном конкретном случае (в учебном проекте небольшого размера, используемом для изучения языка) я бы дал вообще страшный, и несколько вредный совет - пользуйтесь вместо этого класса глобальными функциями/процедурами переменными.

[andreloster]

M_PRO: Обновил первый пост, 4 вопрос

[andreloster]

M_PRO: Я бы пользовался всем глобальным, но сложность достигла своих пределов. На счет OnCreate() : если я инициализирую экземпляр там, он будет доступен во всех функциях и процедурах получается? Он не будет привязан только к OnCreate() ?

[M_PRO]

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

К 4-ому вопросу.

На счёт Вашего примера - посмотрите в сторону стандартного модуля Generics.Collections, а конкретно шаблона TObjectList<>. Он позволит реализовать всё что указано в этом примере на порядок короче и правильнее.

Пример использования:

uses
Generics.Collections;

TBook = class(TObject)
constructor Create(ATitle, AAuthor,: String; AYear: Integer);
end;

TLibrary = class(TObjectList)
procedure AddBook(ATitle, AAuthor,: String; AYear: Integer);
end;

procedure TLibrary.AddBook(ATitle, AAuthor: String; AYear: Integer);
begin
Add(TBook.Create(ATitle, AAuthor, AYear));
end;

[andreloster]

M_PRO: Спасибо за подробный ответ!

[M_PRO]

Прошу прощения за опечатку вызванную работой парсера в предыдущем ответе
Правильно должно было быть TLibrary = class(TObjectList < TBook > )