经常因为殊字符的问题导致查询异常

来源：互联网发布：淘宝实时交易额编辑：程序博客网时间：2024/04/29 22:49

在日常的数据库软件开发中，有一些个特殊字符挺烦人。

比如 ' (单引号)，如果有这个字符内就会有问题。在构建SQL语句的时间就要特殊处理它。

为了解决这个问题当然还有其它的方法，在这里我想从根源上解决，就是在保存数据时就自动替换为全角字符

function PUBF_ConvertSpecialChar(const s:string):string;var  nlength,i:integer;  str,ctmp,c1:string;begin  nlength:= length(s);   if  (nlength = 0 ) then    exit;  str:= '' ;  ctmp:= s;  i:= 1 ;  while  (i <= nlength)  do  begin    c1:= ctmp[i];    case ord(c1[1]) of//      32..48,58..64,91..96,123..127:      33..48,58..64,91..96,123..127:  //不包含空格      begin        str:= str + #163+ chr(ord(c1[1]) + 128 );      end      else      str:= str + c1;    end;    inc(i);  end;  result:= str;end;

function PUBF_ConvertFullWidthChar(const TblName: TDataSet;  AFn: string): Boolean;var  OrgS,DstS:string;begin  Result :=True;  if not TblName.Active then Exit;  if TblName.STATE in [dsEdit,dsInsert] then TblName.Post;  if Trim(AFn)='' then Exit;  try    OrgS:= TblName.FieldByName(AFn).AsString;    if Trim(OrgS)='' then Exit;    DstS:= PUBF_ConvertSpecialChar(OrgS);    if OrgS = DstS then  Exit;    MsgBox(Format(MSG_CHAR_Invalid,[OrgS,DstS]));    with TblName do begin      if not (STATE in [dsEdit,dsInsert]) then Edit;      FieldByName(AFn).AsString := DstS ;    end;  except    on e:Exception do begin      ShowErrorMessage(e.Message);      Result := False;    end;  end;end;