Hello EveryOne, EveryBody, etc.!

  Так как модератор запретил наезды пасквилянтов на си-мэнов и
наоборот, наезжаю и на тех и на других сразу : и паскаль и си -
хреновые языки, Ada - вот язык профессионалов ! Ho в связи с
отсутствием транслятора, приходится пользоваться тем, что есть :(

  Тем, кто не боится использовать запрещенные вещи, предлагаю
приблизить Pascal к Ada (Любители Си тоже могут воспользоваться этой
идеей) : добавить обработку исключительных ситуаций.
Исключительная ситуация может возникнуть в любом месте (возбуждение
исключительной ситуации), при этом управление передается в последний
установленный обработчик. Если он не в состоянии обработать это исключение,
то он распространяет его дальше. Hиже привожу модуль и демо к нему
(проверено в TP7).

{---------------------------------------------------}

P.S. Кто со мной не согласен, пусть первый бросит в меня
     камень (желательно нетмэйлом ;)

  Papirus.


-+- GoldED 2.40+
 + Origin:  SPS, Kishinev, Moldova (7-0422-731992) (FidoNet 2:469/5.2)