untsql.pas

来自「1、通过串口连接手机或短信终端发送短信； 2、内置Access数据库」· PAS 代码 · 共 20 行

unit UntSQL;

interface

function StrToSQL(sStr:string):string;

implementation

function StrToSQL(sStr:string):string;
var
  i:integer;
begin
  Result := '';
  for i := 1 to Length(sStr) do
    if sStr[i]='''' then Result := Result + sStr[i] + sStr[i]
    else Result := Result + sStr[i];
end;

end.