Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Exception [D7, WinXP]


JBL ©   (2005-11-16 19:00:00) 

Доброго времени суток!
Значит вопрос в следующем:
Требуется создать собственное исключение и применить его для проверки введённых данных, т.е. есть два Edit'а и мне надо проверить введены ли в них данные или нет, но сделать это надо  не по ламерски (через IF) а через исключения, причём собственное исключение...


Германн   (2005-11-17 01:52:00) [1]

Пойди туда, не знаю куда. Найди, не знаю что.
Типичное занятие "Иванушек дурачков".
Вот только будет ли в конце "И я там был, мед-пиво пил..."?
Имхо. :(


JBL   (2005-11-16 20:40:00) [2]

ыыы лана спамить не буду, просто я нашол что искал, всех благодарю за участие...


Vlad   (2005-11-16 20:27:00) [3]


> JBL   (16.11.05 20:15) [5]



> if (Edit1.Text='') then


ты же сказал что надо > не по ламерски (через IF)


>  raise EZeroDivide.Create('Ошибка');


и это ты называешь
>  собственное исключение...
?


Джо   (2005-11-16 20:24:00) [4]


>  [5] JBL   (16.11.05 20:15)

А какой отношение пустое поле ввода имеет к делению на ноль?


JBL   (2005-11-16 20:15:00) [5]

прикиньте! Покапался в инете и нарыл :) Вот что надо было!
if (Edit1.Text='') then
 raise EZeroDivide.Create('Ошибка');


Eraser   (2005-11-16 19:21:00) [6]


> JBL   (16.11.05 19:14) [2]

For example, given the following declaration,

type
 EPasswordInvalid = class(Exception);


you can raise a "password invalid" exception at any time by calling raise with an instance of EPasswordInvalid, like this:

if Password <> CorrectPassword then
 raise EPasswordInvalid.Create('Incorrect password entered');


Джо   (2005-11-16 19:20:00) [7]


type
 EMyException = class (Exception);

...
 raise EMyException.Create ('My own exception raised!');
...
 except
   on EMyException do ...;
   on Exception do ...;
 end;

Это?


JBL   (2005-11-16 19:14:00) [8]


> Eraser ©
>
> http://www.delphimaster.ru/cgi-bin/forum.pl?id=1131997633&n=18


Это не совсем то что мне нужно...


Eraser   (2005-11-16 19:04:00) [9]

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1131997633&n=18


Наверх

Титульная страница Поиск, карта сайта Написать письмо