Catch more sorts of exceptions in TMainForm.AnyGridGetText when conve…

…rting large integers to unix timestamps. Should fix #735
HeidiSQL · Aug 13, 2019 · ea4fd3a · ea4fd3a
1 parent d07d463
commit ea4fd3a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/source/main.pas b/source/main.pas
@@ -9045,8 +9045,8 @@ procedure TMainForm.AnyGridGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
           try
             Timestamp := Trunc(StrToFloat(Results.Col(Column), FFormatSettings));
           except
-            on E:EConvertError do
-              Timestamp := 0;
+            // EConvertError in StrToFloat or EInvalidOp in Trunc or...
+            Timestamp := 0;
           end;
           Dec(Timestamp, FTimeZoneOffset);
           CellText := DateTimeToStr(UnixToDateTime(Timestamp));