社区
Delphi
帖子详情
大家帮我看一下我的代码有什么问题,急!!!
fuction
2003-12-12 01:01:48
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;
...全文
51
6
打赏
收藏
大家帮我看一下我的代码有什么问题,急!!!
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;
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
fuction
2003-12-12
打赏
举报
回复
问题解决了,高兴!来者有分!!!
fuction
2003-12-12
打赏
举报
回复
可是我的系统提示说是内存错误,这是怎么回事啊!!!
chinajavis
2003-12-12
打赏
举报
回复
建议设置断点调试一下是什么错误
sundayboysII
2003-12-12
打赏
举报
回复
建议修改StrCopy的函数参数:
StrCopy(P1, Pchar(a));
StrCopy(P2, PChar(b));
qiume
2003-12-12
打赏
举报
回复
// 应该没什么问题
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;
VeryOldMan
2003-12-12
打赏
举报
回复
你的代码没什么问题呀。
检查以下你的writecard()函数吧。
99% 的同学写不出好
代码
,都是因为这个
问题
!
大家好,我是鱼皮,最近
帮
一些学弟妹看他们开发的项目时,发现一个很严重的
问题
,那就是他们的
代码
写的很 粗糙 。 什么叫粗糙呢? 就是指:虽然表面上项目能够运行,界面效果也还不错,但是当我去看他们写的
代码
时,...
求助使用asp中加密与解密对应的函数出错?大家
帮
忙看
一下
!
我根据http://www.kao99.com/club/article_view.asp?id=56例子...但是我根据例子来调试,出现很内部服务器错误,大家
帮
帮
看看,例子什么地方出错拉!
帮
忙调试
一下
!我
急
着要用asp中加密与解密对应的函数,谢谢大家拉!
Python
代码
注释9种方式,Python怎么注释一段
代码
!
编写清晰、简洁的
代码
注释是良好编程习惯的重要组成部分.以下是9个简单易懂的
代码
注释示例,通过具体案例来展示不同类型的注释和最佳实践!
解决啦:麻烦管理员
帮
我改下——我的后台管理分类那里不正常啦:带css样式的那个标签不能编辑啦!!麻烦啦,谢谢啦先
麻烦管理员
帮
我改下——我的后台管理分类那里不正常啦:带css样式的那个标签不能编辑啦!!我就在那个分类介绍里添加啦附带(文章末尾)的那个html
代码
(是看支持html
代码
才弄得),结果就成这样啦还有我刚看拉看,...
学了编程却写出错误
代码
?程序运行结果与想象不符?当bug出现时该何去何从,别担心,这篇文章统统告诉你!手把手带你调试
代码
,让bug原形毕露!
之前我们对C语言的知识进行了一一的讲解,但是当我们自己真正写
代码
的时候,又会发现很多
问题
,比如程序运行时崩溃、程序运行的结果不是我们想要的等等,虽然
代码
已经能够跑起来了,但是依然不是理想中的状态。...
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章