commit b636ffb613ab49e0f037fbe696d28a4b17a72c5f
author Jens Geyer <jensg@apache.org> Fri Jan 19 19:20:29 2018 +0100
committer Jens Geyer <jensg@apache.org> Fri Jan 19 19:21:57 2018 +0100
tree 62455978bee2ebfe2b1b3b392caf3e27ea53f75c
parent 36c0b34dadca42feb1b89af35da494ab6f344d96

THRIFT-4462 First line in Console duplicated
Client: Delphi
Patch: Anton Shchyrov

Slightly modified by JensG

lib/delphi/src/Thrift.Console.pas

diff --git a/lib/delphi/src/Thrift.Console.pas b/lib/delphi/src/Thrift.Console.pas
index 1dbb309..16fa8af 100644
--- a/lib/delphi/src/Thrift.Console.pas
+++ b/lib/delphi/src/Thrift.Console.pas
@@ -99,10 +99,9 @@
   begin
     idx := FMemo.Count - 1;
     if idx < 0 then
-    begin
-      FMemo.Add( S );
-    end;
-    FMemo[idx] := FMemo[idx] + S;
+      FMemo.Add( S )
+    else
+      FMemo[idx] := FMemo[idx] + S;
   end;
   FLineBreak := bWriteLine;
 end;