try ... except ... on

← →
StriderMan © (2006-11-15 15:46) [0]

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

try // тут код может сгенерить ЛЮБОЙ exception except //если Exception типа EMyException то нужно поменять ему Message и сделать raise. //Любое другое исключение надо просто сделать raise end;

Сейчас сделал так:
try //код except on E:Exception do begin if E is EMyException then E.Message := "МОЕ исключение"; raise; end; end;

но ИМХО как-то некрасиво. Хотелось бы что-то типа:

try //код except on E: EMyException do E.Message := "МОЕ исключение"; raise; end;но такой код делфи не съедает

← →
novill © (2006-11-15 15:51) [1]

попробуй

try
//код
except
on E: EMyException do
begin
E.Message := "МОЕ исключение";
raise;
end;

end;

← →
StriderMan © (2006-11-15 15:55) [2]

> novill © (15.11.06 15:51) [1]

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

← →
novill © (2006-11-15 15:58) [3]

> так все другие исключения проглотятся, что нельзя.

ТЫ ПРОБОВАЛ???
procedure TForm1.Button1Click(Sender: TObject); begin try (sender as TOpenDialog).Execute; // просто для генерации ДРУГОГО ИСКЛЮЧЕНИЯ Write("1"); except on e:EInOutError do begin e.Message:="Kyky"; raise; end; end; end;

← →
evvcom © (2006-11-15 15:58) [4]

Дык, там же еще else есть! Чтите help!

← →
StriderMan © (2006-11-15 16:00) [5]

> novill © (15.11.06 15:58) [3]
> ТЫ ПРОБОВАЛ???

работает, круто! спасибо!

это получается то что не попало под условие on автоматом вываливается наружу?

← →
novill © (2006-11-15 16:02) [6]

> там же еще else есть!

Угу, но тут он не нужен :)

try ... except ... on Найти похожие ветки