On Thursday 27 September 2018 09:51:29 Martin Schreiber wrote:
> On Thursday 27 September 2018 09:42:28 mohamed hamza wrote:
> > In addfilter proc sql.text is not saved before changing it to
> > sql.text+'and ..... ' because we have to restore it when the filter
> > is switched off ?
>
> I don't know, it is a function inherited from original Free Pascal SQLDB.
> Not recommended.
>
It seems there is a backup (fsqlbuf):
"
procedure tsqlquery.applyfilter;
//var
// s: string;
begin
freefldbuffers;
tcustomsqlconnection(database).unpreparestatement(fcursor);
fiseof := false;
inherited internalclose;
if filtered and (filter <> '') then begin
fsqlprepbuf:= addfilter(fsqlbuf);
end
else begin
fsqlprepbuf:= fsqlbuf;
end;
if not (bdo_noprepare in foptions) then begin
tcustomsqlconnection(database).preparestatement(fcursor,
tsqltransaction(transaction),fsqlprepbuf,fparams);
end;
execute;
inherited internalopen;
first;
end;
"
Martin
_______________________________________________
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
