169 похожих чатов

How can i do multiple statements when an error occurs?

because after "except on do" construct I can't put begin and end; and it only allows for 1 statement to be executed.
try
SList.LoadFromFile(Filename);
except on E:EFOpenError do
// doing other things here maybe 🤔
Halt(1);
end;

13 ответов

24 просмотра

Except on e:efopenerror do begin ... end; on e:exception do begin ... end; end;

except-end is equivalent to begin-end, so simply: try SList.LoadFromFile(Filename); except functionA(); functionB(arg1, arg2); if(something) then begin bla bla blah end else begin blah blah end; Halt(1); end;

Kris Jace
except-end is equivalent to begin-end, so simply: ...

I do not advise writing code inside the exception section

that's what the except section is for ;)

Kris Jace
that's what the except section is for ;)

it is designed to handle errors in the first place. And redundant and large code inside the exception can throw a new exception that will no longer be caught.

Hemul GM
it is designed to handle errors in the first place...

handling errors can require more than a single line of code.

Hemul GM
Result := False; - enough

some times yes, other times no

Kris Jace
some times yes, other times no

"And redundant and large code inside the exception can throw a new exception that will no longer be caught."

Hemul GM
"And redundant and large code inside the exception...

this is interesting point. I do use nested try-except often, in order to suppress exception messages.

Hemul GM
this is not a very good code

how can you know if you haven't seen the code ;)

Похожие вопросы

Обсуждают сегодня

а через ESC-код ?
Alexey Kulakov
29
30500 за редактор? )
Владимир
47
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
13
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
6
program test; {$mode delphi} procedure proc(v: int32); overload; begin end; procedure proc(v: int64); overload; begin end; var x: uint64; begin proc(x); end. Уж не знаю...
notme
6
Ребят в СИ можно реализовать ООП?
Николай
33
у вас два процесса. один посылает другому сигнал. у вас есть код обоих процессов? если всё не так - расскажите как оно на самом деле. а именно кто кому чего, есть-ли консоли,...
Karagy
6
вы делали что-то подобное и как? может есть либы готовые? увидел картинку нокода, где всё линиями соединено и стало интересно попробовать то же в ddl на lua сделать. решил с ч...
Victor
8
Карта сайта