大家帮我看一下我的代码有什么问题，急！！！

[fuction]

var
p1,p2:pchar;
a,b:string;
begin

getmem(p1,256);
getmem(p2,256);
a:=data1+'='+data2+'=';
b:=data1+'='+data2+'='+data3+'=';
strcopy(p1,@a[1]);
strcopy(p2,@b[1]);
code:=writecard(n1,n,p1,p2,2);
freemem(p1);
freemem(p2);
end;

[VeryOldMan]

你的代码没什么问题呀。
检查以下你的writecard(）函数吧。

• 打赏
• 举报

回复 赞

[qiume]

// 应该没什么问题
var
p1,p2:pchar;
a,b:string;
begin

getmem(p1,256);
getmem(p2,256);
try
a:=data1+'='+data2+'=';
b:=data1+'='+data2+'='+data3+'=';
strcopy(p1,@a[1]);
strcopy(p2,@b[1]);
code:=writecard(n1,n,p1,p2,2); // writecard对吗?
finally
freemem(p1);
freemem(p2);
end;
end;

• 打赏
• 举报

回复 赞

[sundayboysII]

建议修改StrCopy的函数参数：
StrCopy(P1, Pchar(a));
StrCopy(P2, PChar(b));

• 打赏
• 举报

回复 赞

[chinajavis]

建议设置断点调试一下是什么错误

• 打赏
• 举报

回复 赞

[fuction]

可是我的系统提示说是内存错误，这是怎么回事啊！！！

• 打赏
• 举报

回复 赞

[fuction]

问题解决了，高兴！来者有分！！！

• 打赏
• 举报

回复 赞