Delphi 学习笔记 (1) 定义函数 调试输出

function StringToPAnsiChar(Src:string):PChar;
begin
Result := PAnsiChar(AnsiString(Src));
end;

var
str : string;
begin
str := format('SafeDebug %d - %s',[1,'bb']);
OutPutDebugString(StringToPAnsiChar(str));
//OutPutDebugString('SafeDebug');
end;