Introduce an auto-quoting mode in TDBConnection.EscapeString, and use that to get rid of quotes around hex values and integers in quick filters

This commit is contained in:
Ansgar Becker
2021-05-01 07:35:56 +02:00
parent b271107dad
commit 65cf4a5820
4 changed files with 33 additions and 30 deletions

View File

@ -125,7 +125,7 @@ begin
Obj.Assign(DBObj^);
// Database privileges can be wildcarded. Tables/columns not so.
if Obj.NodeType = lntDb then
Obj.Database := FConnection.EscapeString(Obj.Database, True, False);
Obj.Database := FConnection.EscapeString(Obj.Database, True, baFalse);
if Obj.NodeType = lntNone then begin
Obj.NodeType := lntDb;
Obj.Database := '%';
@ -148,9 +148,9 @@ begin
if Assigned(Node) then begin
case Sender.GetNodeLevel(Node) of
0: editDb.Text := '%';
1: editDb.Text := FConnection.EscapeString(Tree.Text[Node, 0], True, False);
2: editDb.Text := FConnection.EscapeString(Tree.Text[Node.Parent, 0], True, False);
3: editDb.Text := FConnection.EscapeString(Tree.Text[Node.Parent.Parent, 0], True, False);
1: editDb.Text := FConnection.EscapeString(Tree.Text[Node, 0], True, baFalse);
2: editDb.Text := FConnection.EscapeString(Tree.Text[Node.Parent, 0], True, baFalse);
3: editDb.Text := FConnection.EscapeString(Tree.Text[Node.Parent.Parent, 0], True, baFalse);
end;
end;
// Indicate automatic changes only