在一个edit框中输入信息,其中包括汉字信息如使用copy语句时有时候会截断占两个字符的汉字字符,造成信息不完整和保存入数据库时出现错误,如何解决这个问题
解决方案 »
- 救命啊.IF语句.
- 如何判断excelworksheet1中的某个单元格有无批注?
- sqloledb和sqloledb.1有何区别呀?
- 高分,请问:那里有《Delphi6开发人员指南》中文版,请给我一份。我的邮箱是:[email protected];写网址,本人自己下载也可
- 关于MEMO里数据的转换,现在出100分,,,,在线.
- IWTreeview是怎样用的?
- 今天心情不好,想乱改东西,会修改开始菜单的朋友进来啊(24小时在线)
- 湖大的 DELPHI Fans Come in!!!!!!!!!!
- 熟练使用了asp,现在想转到Dephi上的编程,有问题么
- 为什么AdoDataSet不能Close?
- 怎样在DLL种共享TDATABASE
- 一个sql语句问题?
ShowMessage(copy(widestring(edit1.text),1,3));
up
如果不截断,就可能超过字段长度。
一个方法是把最后的半个汉字丢弃:
var
s:string;
i:Integer; Edit1.Text:='123我们';
s:=Copy(Edit1.Text,1,6);
i:=1;
while i<=Length(s) do
begin
if s[i]>#127 then
i:=i+1;
if i>Length(s) then
begin
s:=Copy(s,1,i-2);
break;
end;
i:=i+1;
end;