字符串转换赋值问题,求各位大峡给与解决!(10分)

  • 主题发起人 主题发起人 emailqjc
  • 开始时间 开始时间
E

emailqjc

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟分数不多了,请帮忙啊!
function RegUserInfo(Ayhid:pchar
//用户编号
Ayhxm:pchar
//用户名称
Axb:integer
//性别(0女,1男)
Adjrq:pchar
//登记日期
ADz:pchar
//地址
Adh:pchar
//电话
Ayddh:pchar
//移动电话
Adzyj:pchar
//电子邮件
Azjlx:pchar
//证件类型
Azjbh:pchar
//证件编号
Ayhlx:pchar
//用户类型
Assyh:pchar
//所属用户
Ayhjb:pchar
//优惠级别
Abankdm:pchar
//银行代码
Abankzh:pchar
//银行帐号
Azt:pchar
//状态
Afjs:integer
//分机数
Adzm:pchar
//地址码
Aslbh:pchar
//受理编号
Ayhmm:pchar
//用户密码
Ayhs:integer
//用户数
AAreaID:pchar
//片区编号
Adwmc:pchar
//单位名称
Azjs:integer
//主机数
Aczrq:pchar
//操作日期
Aczyid:pchar
//操作员
Axmpym:pchar
//姓名拼音码
AUID:pchar //原用户号
):pchar;

var
str:pchar

begin
str:=pchar(' values('''+Ayhid+''','''+Ayhxm+''','''+pchar(Axb)+''','''+Adjrq+''','''+Adz+''','''+Adh+''','''+Ayddh+''','''+Adzyj+''','''+Azjlx+''','''+Azjbh+''','''+Ayhlx+''','''+Assyh+''','''+Ayhjb+''','''+Abankdm+''','''+Abankzh+''','''+Azt+''','''+pchar(Afjs)+''','''+Adzm+''','''+Aslbh+''','''+Ayhmm+''','''+pchar(Ayhs)+''','''+AAreaID+''','''+Adwmc+''','''+pchar(Azjs)+''','''+Aczrq+''','''+Aczyid+''','''+AxmPYM+''','''+AUID+''')');
end;

请问为什么执行到str:=pchar(' values('''+Ayhid+''','''+Ayhxm+''','''+pchar(Axb)+''','''+Adjrq+''','''+Adz+''','''+Adh+''','''+Ayddh+''','''+Adzyj+''','''+Azjlx+''','''+Azjbh+''','''+Ayhlx+''','''+Assyh+''','''+Ayhjb+''','''+Abankdm+''','''+Abankzh+''','''+Azt+''','''+pchar(Afjs)+''','''+Adzm+''','''+Aslbh+''','''+Ayhmm+''','''+pchar(Ayhs)+''','''+AAreaID+''','''+Adwmc+''','''+pchar(Azjs)+''','''+Aczrq+''','''+Aczyid+''','''+AxmPYM+''','''+AUID+''')')时候报错误,我如果将其中的参数改成STRING就不报错
 
拜托兄弟能不能换一下行啊,写这样的语句不怕别人的胃水翻出来啊?
string类型是不能跟PChar类型做连接运算的,所以
' values('''+Ayhid这样的写法是错误的。
 
老大你这样搞死你,比如,Ayhxm=bill'Gate
那你死翘翘了,还有上面提出的问题。
 
先谢谢各位啊!问题已经解决了,将入口参数integer改成pchar就可以了[:D]
 
后退
顶部