자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------
 

참고: // http://www.blong.com/Conferences/BorCon2002/Debugging/3188.htm

delphi7 기준 입니다.

 

type
  TAssertErrorProc = procedure (const Message, Filename: string;
    LineNumber: Integer; ErrorAddr: Pointer);

var
  AssertErrorProc   : TAssertErrorProc; { Assertion error handler }

function MakeDebugMsg(const Msg: String; ShowPIDAndTID: Boolean): String;
begin
  if ShowPIDAndTID then
    Result := Format('PID = %d ($%0:x), TID = %d ($%1:x): %s',
      [GetCurrentProcessID, GetCurrentThreadID, Msg])
  else
    Result := Msg;
end;
 
 
 
procedure InternalDebugMsg(const Msg: String);
begin
  OutputDebugString(PChar(Msg))
end;
 
procedure DebugMsg(const Msg: String;
  ShowPIDAndTID: Boolean = False); overload;
begin
  InternalDebugMsg(MakeDebugMsg(Msg, ShowPIDAndTID));
end;
 
procedure DebugMsg(const Msg: String; const Params: array of const;
  ShowPIDAndTID: Boolean = False); overload;
begin
  DebugMsg(Format(Msg, Params), ShowPIDAndTID)
end;
 
 
 
//The debug support code from DebugSupport.pas
procedure AssertErrorHandler(const Msg, Filename: string;
  LineNumber: Integer; ErrorAddr: Pointer);
begin
  //ErrorAddr is address Assert will return to
  //(i.e. instruction following call to Assert).
  //Subtract 1 from it to ensure it refers to part
  //of the Assert call, making it more appropriate
  DebugMsg('%s (%s, line %d, address $%x)',
    [Msg, Filename, LineNumber, Pred(Integer(ErrorAddr))]);
end;
 

procedure TfMain.Button1Click(Sender: TObject);
begin
  try
    Assert(False, 'Entering TestIt routine');
    //body of the interesting routine
    Assert(False, 'Exiting TestIt routine');
  except
  on e : Exception do
    begin
      ShowMessage(e.Message);
    end;
  end;
end;
 

procedure RerouteAssertions;
begin
{$ifdef Delphi6AndAbove}
  AssertErrorProc := AssertErrorHandler;
{$else}
  AssertErrorProc := @AssertErrorHandler;
{$endif}
end;
 
 
 
 
 
initialization
  RerouteAssertions;
 
 
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 20072
공지 유용한 관련 사이트 관리자2 2014.03.20 58976
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102603
1599 DBgrid 입력시 위치를 맨 위로 보내는 방법 델펀맨 2016.12.15 250
1598 Embarcadero® Delphi 10.1 Berlin 영수증 프린터 인쇄 개발 문의 드립니다. [1] midas 2016.12.14 7254
1597 블루투스 프린터 출력을 하려고 합니다 [3] silkroad99 2016.11.16 2091
1596 콤보박스의 글자간 간격이 이상합니다. [4] file 떵묻은강아지 2016.12.14 597
1595 [재질문] 콤보박스의 글자와 글자간 간격이 이상합니다. file 떵묻은강아지 2016.12.14 216
1594 자바 소스를 델파이로 바꿔주는 툴은 있나요? [1] 화이부동 2016.12.13 547
1593 모바일 폰 사진첩 폴더 접근방법 [2] 향기 2016.12.06 562
1592 DBMemo 컴퍼넌트에서 엔터키 누를때 음표(♪, 동그라미) 없애는 방법 file 델펀맨 2016.12.12 877
1591 TComboBox, TDateEdit, TTimeEdit등 컴포넌트의 밑줄 제거방법문의 [3] 김태윤 2016.12.07 348
1590 델파이 베를린 버젼의 Listview DynamicApperance 버튼 크기조정? [2] silkroad99 2016.11.28 281
1589 안드로이드폰 DataSnap서버 접속오류에 대한 문의 이노베이션 2016.12.09 525
1588 C++ Builder 2007에서 유니코드 파일 불러오는 법 문의드립니다. [1] YSJ 2016.12.08 406
1587 갤럭시 탭 가로모드 실행시, 앱이 꺼지는 현상 [3] 가을이다 2016.12.07 7672
» 아래 Debug Error 추적 내용이 있어 다른 방법을 공유 합니다. [1] jang 2016.12.06 474
1585 비콘 컴포넌트를 이용한 어플에 대한 질문 드립니다. [1] file 한수 2016.12.07 223
1584 아래 Application Loader3으로 앱스토어에 앱 등록시 에러 이슈 엠바카데로에 확인요청 [2] 김태윤 2016.11.24 1414
1583 ClientDataSet의 데이터 참조 [1] 나즈나 2016.12.02 132
1582 RAD 스튜디오 베를린 10.1에서 인포믹스 DB를 지원하나요? 험프리 2016.12.08 210
1581 Webbrowser에서 오픈시 과거 데이타를 가져오는 듯한 느낌은? [4] 화이부동 2016.12.06 521
1580 Delphi 10.1 Berlin Enterprise update1 to update2 후 문제 [1] jang 2016.12.07 133