From 975e1528e8502d7c3081d88f57d850fb5913a746 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Tue, 16 Apr 2019 06:38:06 +0200
Subject: [PATCH] Issue #521: make debug output more readable

---
 source/dbconnection.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index 77686e831..1461ee818 100644
--- 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