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

Вниз

Как при создании исключения передать код ошибки?   Найти похожие ветки 

 
Mishenka   (2003-11-02 17:51) [0]

Создаётся исключение потомок EAbort с помощью raise. Как в except передавать не текстовое сообщение об ошибки с помощью Скуфе, а числовой код?


 
default   (2003-11-02 17:55) [1]

на крайняк, число в строковом предствавлении сложно перевести в "обычное" число?


 
Юрий Федоров   (2003-11-02 18:23) [2]

конструктор переписал? С передачей кода?
Свойство код завел ?
Дальше просто кастишь в Except под нужный класс


 
Mishenka   (2003-11-02 18:54) [3]

Нет. Просто создал класс без всяких конструкторов.
type
EMaskError=class(EAbort)
end;

Там у EAbort вроде кроме Create есть ещё метод CreatRes, он вроде передаёт числа, только как их потом в exception"e прочитать?


 
Palladin   (2003-11-03 02:16) [4]

Ну да, вроде бы числа, но внимание вопрос! Что означают эти числа?
Ответ см. в справке.


 
Slym   (2003-11-03 05:59) [5]

type
EMaskError=class(Exception)
private
FCode:integer;
public
constructor Create(const Msg: string;Code:integer=0);override;
property Code:read FCode;
end;

constructor EMaskError.Create(const Msg: string;Code:integer=0);override;
begin
FCode:=Code;
inherited Create(Msg);
end;

Пример:
try
except
on e:EMaskError do
if e.Code=1 then exit
end


 
Романов Р.В.   (2003-11-03 07:39) [6]

А чем Get/SetLastError не нравится?



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

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

Наверх




Память: 0.45 MB
Время: 0.039 c
3-40839
Alex_S
2003-10-17 10:50
2003.11.13
Некоторые записи не сохраняются


4-42314
Алексей Петухов
2003-09-05 12:10
2003.11.13
Прозрачные окошки


3-40951
Slim
2003-10-24 21:47
2003.11.13
Проблема выбора?


1-41160
Stratos
2003-11-01 02:48
2003.11.13
битовые поля в записях


14-41905
Dmitriy O.
2003-10-15 16:24
2003.11.13
Конвертация форматов





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский