Application.MessageBox(PChar('시작'), '정보', MB_ICONINFORMATION);
// try문 외부에서 예외발생 경우
raise Exception.Create('예외경우 발생!'); // 아래 finally 구문 미실행 + Exit()
// try문 외부에서 Exit()할 경우
if 조건 then Exit(); // 아래 try..finally와 관계 없이 종료
try
try
...
raise Exception.Create('예외발생!'); // except + finally + next 을 모두 수행
Exit(); // except + finally + next 을 모두 수행(=Exception.Create 와 함께 사용할 필요없는 구문)
...
raise Exception.Create('예외발생!'); // except + finally + next 을 모두 수행
Exit(); // except + finally + next 을 모두 수행(=Exception.Create 와 함께 사용할 필요없는 구문)
...
except
on e: Exception do
begin
// 예외 발생시에만 수행 - finally + next 수행
Application.MessageBox(PChar(e.Message), PChar('에러'), MB_ICONERROR + MB_OK);
except
on e: Exception do
begin
// 예외 발생시에만 수행 - finally + next 수행
Application.MessageBox(PChar(e.Message), PChar('에러'), MB_ICONERROR + MB_OK);
Exit(); // finally 까지 수행하고 종료 (next 미수행)
end;
end;
finally
// 예외 발생 여부 및 try구문 내의 Exit() 유무에 상관없이 무조건 수행되는 구문
FreeAndNill(obj);
end;
end;
end;
finally
// 예외 발생 여부 및 try구문 내의 Exit() 유무에 상관없이 무조건 수행되는 구문
FreeAndNill(obj);
end;
Application.MessageBox(PChar('next'), PChar('next'), MB_ICONERROR + MB_OK);
원본 링크 : http://byhou.tistory.com/375
'공부방 > Delphi' 카테고리의 다른 글
[델파이] SendMessage - String 으로 넘기기 (0) | 2018.04.06 |
---|---|
[델파이] EncodeBase64 (0) | 2018.04.06 |
[델파이] 퀀텀그리드 짝수열 색상변경하기 (1) | 2016.03.10 |
[델파이] Form 생성에 대한 정리 (0) | 2015.12.14 |
[델파이] 중복실행 방지 유닛 (0) | 2015.10.05 |