Перехват сообщений

← →
Стас (2002-02-12 14:14) [0]

Приветствую всех! Программа на моей машине работает классно. Переношу ее на 16Мб-тную и время от времени вылетает ошибка EOutOfResources. Что это означает, я знаю. Может, кто-нибудь подскажет, как ее самостоятельно обработать?

← →
AlexRush © (2002-02-12 14:34) [1]

Подкинь свой код, может что ясно станет, а ошибку обрабатывать нужно, как обычно: try...except...end:

procedure TForm1.HandleOutOfResourcesException;
begin
// код обработчика ошибки
end;

try
{...... "опасный" код}
except
on EOutOfResources do HandleOutOfResourcesException;
end;

← →
Стас (2002-02-12 15:10) [2]

Я бы дал код, но вся хохма в том, что он и вправду объемный. Там при создании формы из регистра чего-то читается, пути к БД определяются... Вобщем за всем не уследишь. Но за подсказку - спасибо. Буду ее применять при создании формы.

← →
Стас (2002-02-12 15:43) [3]

Кстати, тут в тему еще один вопрос: обработка ошибок у меня уже стоит на главной форме. Может, кто знает, как поставить try...except в модуль там, где стоит program? (Если вообще это возможно)

Меню Project | View Source

И ручками вбиваете что угодно и куда угодно.

Перехват сообщений Найти похожие ветки