小问题得多分----DLL中函数返回类型为PChar的问题；。。。。

Question

var ls_temp:string;
    lp:pchar;
begin
   ls_temp:=copy(ls_0,len-3);
   lp:=pchar(ls_temp)
   result:=lp;
end
函数是这样的
    

Answer 1

像楼上的转换成pchar就可以了。

Answer 2

这样：function CutString(ls:pchar; len:integer):pchar;stcall;
begin
    result:=pchar(copy(strpas(ls),0,len-3));
end;

Answer 3

谢谢楼上大哥的参与：已经成功解决了。
以下是我调用该函数的代码，帮我看一下，var 
  ls_1:string;
  lp_1:pchar;
begin
   ls_1:= "china"
    
   stralloc(lp_1,100);
   lp_1:=CutString(ls_1,length(ls_1)-2)//我要取得 chi
   showmessge(lp_1)
end 
这样做好像不行，请不鄙指教哦：