Турбо Паскаль 6.0



Метод ValidView.


Поскольку LowMemory проверяется достаточно часто, TApplication имеет метод ValidView, который может вызываться для выполнения необходимой проверки. Используя ValidView, проверка if в последних 8 строках может быть заменена на 2 строки:

DoIt := (ValidView(D) <> nil) and (DeskTop^.ExecView(D) = cmYes;

ValidView возвращает либо указатель на переданный видимый элемент, либо nil, если видимый элемент неверен. Если LowMemory возвращает True, ValidView освобождает видимый элемент и вызывает OutOfMemory.




Содержание  Назад  Вперед