paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 17:09:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Do not call verbose if EscapeSQL does nothing

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-02 12:15:22 +01:00
parent b40450d687
commit 3677680c08
1 changed files with 2 additions and 1 deletions

3
tests/utils/tsdb.pp
View File

@ -463,7 +463,8 @@ class function TTestSQL.EscapeSQL(const S: String): String;
begin
// Result:=StringReplace(S,'\','\\',[rfReplaceAll]);
Result:=StringReplace(S,'''','''''',[rfReplaceAll]);
tsutils.Verbose(V_SQL,'EscapeSQL : "'+S+'" -> "'+Result+'"');
if (Result<>S) then
tsutils.Verbose(V_SQL,'EscapeSQL : "'+S+'" -> "'+Result+'"');
end;