type Class declaration
...
Destructor Destroy; Override;
...
end;
Ключевое слово Destructor определяет процедуру деструктора Destroy для класса.
При освобождении объекта, вызывается Destructor. Это позволяет объекту освободить память или другие используемые ресурсы, которые он использовал.
Обычно деструктора имеет название destroy, но это никак не ограничено. Но будет умно сохранить это название.
Директива Override должна быть указана, так как мы отменяем виртуальный метод уничтожения TObject.
|
// Полный код Модуля.
// -----------------------------------------------------------
// Вы должны поместить этот код в модуль с именем Unit1 и с формой
// названную Form1, которая имеет событие OnCreate названное FormCreate.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
// Строка содержащая запись
TString = string[10];
// Определение класс контейнера
TWords = class
private
wordCount : Integer;
wordsStart : Pointer;
function Get(Index: Integer): string;
public
property GetWord[Index : Integer] : string read Get;
published
constructor Create(count : integer);
Destructor Destroy; override;
end;
// Сам класс формы
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// Конструктор TWords - формирует массив слова
constructor TWords.Create(count: integer);
var
i : Integer;
wordsList : ^TString;
begin
// Получите памяти для 'count' строк
GetMem(wordsStart, count*SizeOf(TString));
// Заполнение этого списка
wordsList := wordsStart;
wordCount := count;
for i := 1 to count do
begin
wordsList^ := 'Word '+IntToStr(i);
Inc(wordsList);
end;
end;
// Деструктор TWords - освобождает память
destructor TWords.Destroy;
begin
// Освобождение памяти, если она получена
if wordsStart <> nil
then FreeMem(wordsStart);
// Всегда вызывайте родительский деструктор после выполнения вашего собственного кода
inherited;
end;
// GetWord функция чтения свойства
function TWords.Get(Index: Integer): string;
var
wordsList : ^TString;
begin
// Чтение слова по данному индексу, если в диапазоне
if (Index >= 1) and (Index <= wordcount)
then
begin
wordsList := wordsStart;
Inc(wordsList, Index-1);
Result := wordsList^;
end;
end;
// Основная линия кода
procedure TForm1.FormCreate(Sender: TObject);
var
words : TWords;
begin
// Создание объекта TWords
words := TWords.Create(4);
// Теперь показываем 2-ое слово в этом объекте
ShowMessage('2-ое слово = '+words.GetWord[2]);
end;
end.
|