delphi 编写dll返回pchar 类型出现乱码

前段时间 
  用delphi 为公司开发的dll
  当使用pchar 作为返回值时
  发现一些语言接收到的数据中包含乱码问题。
  应该是返回指针类型是数据出错。

  于是在每一个函数返回前 在其返回值后添加 char(0) 做结束字符。
  一个char(0)不够 ，就再加一个。
  测试pb 中没有再出现次情况了
  vb 中接收返回值 需要做一些处理

  Mid(tres, 1, InStr(tres, Chr(0)) - 1)
 

  其中 tres 为dll 数据