奇了半个字符!吃掉我的小引号!我好急呀!(100分)

  • 主题发起人 主题发起人 随风飘马
  • 开始时间 开始时间

随风飘马

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大家好:
小弟现在遇到一个很麻烦的问题:
在文件中读出的数据含有汉字中的半个字符
在用 ADOCommand 做 insert 的时候 要用' ' 括起来,结果末尾的
半个字符和 ' 号组成了奇怪的垃圾符号,报出错误。

现在我想各位大虾请教一下有没有什么手段能判断出我取的
最末的字符是汉字还是奇怪字符? 也及有什么方法能判断是汉字?
 
为什么一定有这些?
 
先用这个函数把你说的文件中读出的数据处理一下:
function ctrim(tmpstr:string):string;
var
i,ccount:integer;
begin
ccount:=0;
i:=length(tmpstr);
while(tmpstr>#128) do
begin
ccount:=ccount+1;
i:=i-1;
if i<1 then
break;
end;
if odd(ccount) then
result:=copy(tmpstr,1,length(tmpstr)-1) //说明末尾有多余的大于128的字符
else
result:=tmpstr;
end;
 
后退
顶部