Разное
Облака / Clouds

The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>

time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: Dispose
Dispose
|
1 procedure Dispose ( var VariablePointer : Pointer-Type ) ; 2 procedure Dispose ( var ObjectPointer : Object-Pointer; Destructor ) ; |
Процедура (Unit System)
|
Очищает память на которую указывает указатель
|
Описание:
|
Процедура Dispose выходила в двух версиях. Старшая версия - устаревший метод уничтожения объектов (Теперь вместо этого вы должны вызывать деструктор класса). Первая версия освобождает память, используемую переменной типа указателя VariablePointer. Вы должны использовать Dispose, когда больше не используется переменная распределённая с использованием New. |
Пример кода: Распределение памяти для записи, присвоение, и затем избавление от неё
|
type TCustomer = Record name : string[20]; age : Byte; end; var custRecPtr : ^TCustomer; begin // Создание записи клиента используя 'New' New(custRecptr); // Присвоение ему значений custRecPtr.name := 'Her indoors'; custRecPtr.age := 55; // Теперь показываем эти значения ShowMessageFmt('%s is %d',[custRecPtr.name, custRecPtr.age]); // Теперь избавляемся от этой распределенной записи Dispose(custRecPtr); end;
Результат:
|
Her indoors is 55 |
Примечание:
|
Предупреждение: переменная становится неопределённой после вызова Dispose. Она не устанавливает на ноль (nil). |