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

[mdf2008]

DLL函数源码：

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

如何调用该函数，我试了好多种方法，不是非法操作，就是取不到返回值。。。
请指教。。。

[mdf2008]

谢谢楼上大哥的参与：已经成功解决了。
以下是我调用该函数的代码，帮我看一下，

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
这样做好像不行，请不鄙指教哦：

[mdf2008]

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

[luoweicaisd]

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

[nne998]

这样：

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