输出调试信息的两种方法

在开发中经常希望输出调试信息，我平时一般使用下面两种之一：

1.用dbgview.exe可以查看，在代码里写法如下

OutputDebugString(PChar(AMsg));

2.产生一个console窗口

1. procedureTInfDebugInfoConsoleImpl.CloseConsole;
2. begin
3. if(FHandle<>INVALID_HANDLE_VALUE)then
4. begin
5. CloseHandle(FHandle);
6. FHandle:=INVALID_HANDLE_VALUE;
7. FreeConsole();
8. end;
9. end;
11. procedureTInfDebugInfoConsoleImpl.OpenConsole;
12. begin
13. ifFHandle<>INVALID_HANDLE_VALUEthen
14. Exit;
15. AllocConsole;
16. SetConsoleTitle('Debug');
17. FHandle:=GetStdHandle(STD_OUTPUT_HANDLE);
18. end;
20. procedureTInfDebugInfoConsoleImpl.WriteInfo(constAMsg:string);
21. var
22. dwTmp:DWORD;
23. str:string;
24. begin
25. if(FHandle<>INVALID_HANDLE_VALUE)then
26. begin
27. Str:=Format('%s'#13#10,[AMsg]);
28. WriteConsole(FHandle,PChar(Str),Length(Str),dwTmp,nil);
29. end;
30. end;