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;