Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];

Вниз

Довесок к Exeption   Найти похожие ветки 

 
Gray Angel   (2003-11-06 13:53) [0]

Хочу чтобы совместно с системным месаджем выполнялось и мое действие.

try

catch(...)

мое действие выполняет мое но убивает системное сообщение. посоветуйте как их совместить.

ПРИМЕЧАНИЕ: В блок try включен большой кусок кода (БД, COM, стандартные функции) тек что определенный класс ошибки использовать низзя [ait].

Жду советов, зараннее спасибо.


 
stone   (2003-11-06 13:55) [1]

Не совсем понятен вопрос, попробую догадаться...

try
...
except
on E:Exception do
begin
... твои действия
end;
end;


 
Gray Angel   (2003-11-06 14:00) [2]

да но при этом системное сообщение на экран не выводится, его нужно выводить посредством MessageBox. А можно ли сие сделать не заглушая системный вывод об ошибке.


 
stone   (2003-11-06 14:04) [3]

а какая разница чем его выводить, ну выведи так

try
...
except
on E:Exception do
begin
MessageDlg(E.Message, mtError, [mbOk], 0);
... твои действия
end;
end;


 
Gray Angel   (2003-11-06 14:07) [4]

В принципе да, так и сделаю. Большое спасибо за помощь.


 
Плохиш_   (2003-11-06 14:08) [5]

>Gray Angel (06.11.03 14:00) [2]


> try
> ...
> except
> on E:Exception do
> begin
> ... твои действия

raise;

> end;
> end;


 
Романов Р.В.   (2003-11-06 14:09) [6]

F1 - raise, Re-raising exceptions



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.013 c
7-56931
asJIura
2003-09-06 15:37
2003.11.17
Функция для получения серийного номера жесткого диска?


1-56635
Jee
2003-11-05 14:21
2003.11.17
Редактор свойств


1-56555
Poof-poof
2003-11-08 01:40
2003.11.17
Как сделать так чтобы форму нельзя было ресайзнуть?


3-56512
Prankster
2003-10-26 20:49
2003.11.17
База данных без BDE?


1-56696
chadnov
2003-11-07 15:41
2003.11.17
Как такое может получиться?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский