delphi 函数
给字符串两边加单引号并返回.
声明:function QuotedStr(const S: string): string;
用函数 QuotedStr把字符串S转换成为用引号括起来的字符串。单引号” ‘ ” 将被插入到字符串s的最前和最后。例如:
abc -> ‘abc ‘
ADOQuery1.close;
ADOQuery1.SQL.Clear;
// C:\Users\Administrator\Desktop\delphi学习应用\logo\db1.mdb
sqls := ‘insert into Tuser values (‘ + inttostr(maxid) + ‘,’ +
quotedstr(Edit1.Text) + ‘,’ + quotedstr(Edit2.Text) +’,’+’0’+ ‘)’;
ADOQuery1.SQL.Add(sqls); //0代表无论如何注册,总是用户
// ‘select * from Tuser’;
ADOQuery1.ExecSQL;
showMessage(‘恭喜您,注册成功,点击返回登录’);