Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная

Dispose

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

Dispose

Описание

1 procedure Dispose ( var VariablePointer : Pointer-Type ) ;
2 procedure Dispose ( var ObjectPointer : Object-Pointer; Destructor ) ;

Процедура 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).

Авторизация



Счетчики