Issue #521: make debug output more readable

HeidiSQL · Apr 16, 2019 · 975e152 · 975e152
1 parent f870c81
commit 975e152
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/source/dbconnection.pas b/source/dbconnection.pas
@@ -930,7 +930,7 @@ procedure TPlink.Connect;
     ErrorText := ReadPipe(FErrorPipe);
     if (OutText <> '') or (ErrorText <> '') then begin
       ReturnedSomethingAt := Waited;
-      FConnection.Log(lcDebug, 'PLink OutText: "'+OutText+'"  ErrorText: "'+ErrorText+'"');
+      FConnection.Log(lcDebug, Format('PLink output after %d ms. OutPipe: "%s"  ErrorPipe: "%s"', [Waited, OutText, ErrorText]));
     end;
 
     if OutText <> '' then begin