[请求]文本字段如何写入**

zykj

qry.Params.ParamByName('fid').AsString:='111';
fid 是   文本字段，现在写入的是乱码。。。要如何写才可以               

    qry:=TQuery.Create(nil);
                       try
                        qry.ConnectionString:='DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';
                       //生成任务ttask
                        qry.CommandText:='insert into tflow '+
                             '(fguid,fid,fclientaccount,fprocurl,fflowfieldurl,fsubject,fcreatetime,fparentguid,fprevguid,fnextguid,fstate,fupdateflag)'+
                             'VALUES (:fguid,:fid,:fclientaccount,:fprocurl,:fflowfieldurl,:fsubject,:fcreatetime,:fparentguid,:fprevguid,:fnextguid,:fstate,:fupdateflag)';
                        qry.Params.ParamByName('fguid').AsString:='AABBCC';
                        qry.Params.ParamByName('fid').AsString:='111';
                        qry.Params.ParamByName('fclientaccount').AsString:='TT';
                        qry.Params.ParamByName('fprocurl').AsString:='TT';
                        qry.Params.ParamByName('fflowfieldurl').AsString:='TT';
                        qry.Params.ParamByName('fsubject').AsString:='TT';
                        qry.Params.ParamByName('fcreatetime').AsDateTime:=SysSrv.SysService.Time;
                        qry.Params.ParamByName('fparentguid').AsString:='-1';
                        qry.Params.ParamByName('fprevguid').AsString:='-1';
                        qry.Params.ParamByName('fnextguid').AsString:='-1';
                        qry.Params.ParamByName('fstate').AsString:='fsProcessing';
                        qry.Params.ParamByName('fupdateflag').AsString:='AABBCC';
                        qry.Execute;
                        finally
                        qry.free;
                        end;

lixin_justep

qry.Params.ParamByName('fid').AsBlob:='111';