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.
|