16,748
社区成员
发帖
与我相关
我的任务
分享这个pchar!
据说
为了兼容c要用pchar做参数,好吧,现在用pchar
exe:
var
filename:array[0..255] of char;
pfilename:pchar;
函数
begin
filename[0]:=chr(0);
pfilename:=@filename[0];
fun(pfilename);
end;
dll:
fun(pfilename);
begin
if pfilename='' then .... // 这句为什么不执行? 调试时确实是 pfilename='' 但跳过了
end;
为了兼容c要用pchar做参数,好吧,现在用pchar
exe:
var
filename:array[0..255] of char;
pfilename:pchar;
函数
begin
filename[0]:=chr(0);
pfilename:=@filename[0];
fun(pfilename);
end;
dll:
fun(pfilename);
begin
if pfilename='' then .... // 这句为什么不执行? 调试时确实是 pfilename='' 但跳过了
end;
...全文
请发表友善的回复…
发表回复
starluck 2009-10-25
- 打赏
- 举报
strPas 转换一下.
或者判断
pfilename^ = #0
或者判断
pfilename^ = #0
dqlihb 2009-10-25
- 打赏
- 举报
有道理,
对3楼追求20分,其它送分继续
对3楼追求20分,其它送分继续
iamduo 2009-10-25
- 打赏
- 举报
==！
wxieyang 2009-10-25
- 打赏
- 举报
应该是 if pfilename^ <> #0 hen
byteh 2009-10-25
- 打赏
- 举报
哈哈！
贝隆 2009-10-25
- 打赏
- 举报
帮顶
kfcoffe 2009-10-25
- 打赏
- 举报
heh
dqlihb 2009-10-25
- 打赏
- 举报
不问了,改方法
此帖变成送分,每人2-5分,送完为止
此帖变成送分,每人2-5分,送完为止
