OutputDebugString()与Delphi for MacOS
Delphi OSX单元中是否有NSLog声明。我在Firemonkey应用程序中找不到OutputDebugString的替代值 最终的解决方案如下所示:OutputDebugString()与Delphi for MacOS,delphi,delphi-xe2,nslog,firemonkey,outputdebugstring,Delphi,Delphi Xe2,Nslog,Firemonkey,Outputdebugstring,Delphi OSX单元中是否有NSLog声明。我在Firemonkey应用程序中找不到OutputDebugString的替代值 最终的解决方案如下所示: /// <remarks> /// Output debug string. Output debug string can be seen in Delphi /// View|Debug Windows|Event Log or with 3-rd party programs such as /// dbgview.exe
/// <remarks>
/// Output debug string. Output debug string can be seen in Delphi
/// View|Debug Windows|Event Log or with 3-rd party programs such as
/// dbgview.exe from SysInternals (www.sysinternals.com)
/// </remarks>
procedure ODS(const Text: string);
begin
{$IFDEF MACOS}
// http://stackoverflow.com/questions/12405447/outputdebugstring-with-delphi-for-macosunit unt_Debug;
Log.d(Text);
{$ENDIF}
{$IFDEF LINUX}
__write(stderr, AText, Length(AText));
__write(stderr, EOL, Length(EOL));
{$ENDIF}
{$IFDEF MSWINDOWS}
OutputDebugString(PWideChar(Text));
{$ENDIF}
end;
//
///输出调试字符串。可以在Delphi中看到输出调试字符串
///查看|调试窗口|事件日志或使用第三方程序,如
///SysInternals中的dbgview.exe(www.SysInternals.com)
///
程序ODS(常量文本:字符串);
开始
{$IFDEF MACOS}
// http://stackoverflow.com/questions/12405447/outputdebugstring-with-delphi-for-macosunit unt_调试;
Log.d(文本);
{$ENDIF}
{$IFDEF LINUX}
__写入(标准字符、AText、长度(AText));
__写入(标准、下线、长度(下线));
{$ENDIF}
{$IFDEF MSWINDOWS}
OutputDebugString(PWideChar(文本));
{$ENDIF}
结束;
在Firemonkey中,在事件日志中显示消息的便携方式是:
我认为它可以从以后使用。基于,不可能像第9点那样导入NSLog
过程吗?这只是一个猜测,我与OSX完全无关。
uses FMX.Types;
...
Log.d('debugging');