大家帮我看一下我的代码有什么问题,急!!!
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;
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;
...全文
相关推荐
勤行校区 高二数学上学期12月月考试题 理(无答案) 试题.doc
勤行校区 高二数学上学期12月月考试题 理(无答案) 试题.doc
高二数学上学期12月月考试题 理(无答案) 试题.doc
高二数学上学期12月月考试题 理(无答案) 试题.doc
高二数学上学期12月月考试题 理(无答案)新人教A版 试题.doc
高二数学上学期12月月考试题 理(无答案)新人教A版 试题.doc
高二数学上学期第二次(12月)月考试题 理(无答案) 试题.doc
高二数学上学期第二次(12月)月考试题 理(无答案) 试题.doc
学益校区 高二数学3月月考试题 理(无答案) 试题.doc
学益校区 高二数学3月月考试题 理(无答案) 试题.doc


