如何在Windows和Linux执行代码时显示调试信息？Delphi的OutputDebugString有无Linux版本？

Windows平台的OutputDebugString是系统专属API，仅适用于Windows环境，Linux没有原生对应的同名函数，但可以通过以下两种方式实现类似的调试输出功能：

1. 直接调用Linux系统日志函数 #

Linux下可以用syslog系列函数发送调试消息，Delphi的跨平台单元已经封装了相关接口，需要引用Posix.SysLog单元。消息会被系统日志服务捕获，默认存放在/var/log/syslog或/var/log/messages，可以用tail -f /var/log/syslog命令实时查看日志内容。

示例代码：

uses
  Posix.SysLog;

...

var 
  DebugMsg : string;
begin 
  // 初始化日志，指定应用标识、日志选项和日志类别
  openlog('MyDelphiApp', LOG_PID or LOG_CONS, LOG_USER);
  try
    syslog(LOG_DEBUG, 'report a status .... ');

    DebugMsg := 'report a status ....';
    syslog(LOG_DEBUG, PAnsiChar(AnsiString(DebugMsg)));
  finally
    // 关闭日志连接
    closelog;
  end;
end;

2. 封装跨平台通用调试函数 #

如果需要代码同时兼容Windows和Linux，可以通过条件编译封装统一的调试输出函数，让代码无需修改就能在两个平台运行：

示例单元代码：

unit DebugUtils;

interface

procedure DebugOutput(const Msg: string);

implementation

{$IFDEF MSWINDOWS}
uses
  Winapi.Windows;
{$ENDIF}
{$IFDEF LINUX}
uses
  Posix.SysLog;
{$ENDIF}

procedure DebugOutput(const Msg: string);
begin
{$IFDEF MSWINDOWS}
  OutputDebugString(PChar(Msg));
{$ENDIF}
{$IFDEF LINUX}
  openlog('MyDelphiApp', LOG_PID or LOG_CONS, LOG_USER);
  try
    syslog(LOG_DEBUG, PAnsiChar(AnsiString(Msg)));
  finally
    closelog;
  end;
{$ENDIF}
end;

end.

使用时只需调用DebugOutput('调试消息')，Windows下会调用原生OutputDebugString，Linux下则使用syslog记录日志。

另外补充：如果是在RAD Studio中调试Linux程序，也可以直接用WriteLn输出到调试控制台，但这种方式仅在调试器附加时有效，而syslog是系统级日志，无论是否有调试器都能持久化记录。

内容的提问来源于stack exchange，提问作者Franz