From e655a1d85ef82ae68be8b523d9342eb6d454eee7 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Fri, 17 Jun 2016 21:55:15 +0000 Subject: [PATCH] tvplanit: Fix uninitialized local variable in TZeosDatastore.SetConnection. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4765 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/tvplanit/examples/zeosdatastore/project1.lpi | 1 - components/tvplanit/source/vpzeosds.pas | 3 ++- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/components/tvplanit/examples/zeosdatastore/project1.lpi b/components/tvplanit/examples/zeosdatastore/project1.lpi index a181c9854..b89b8c3a3 100644 --- a/components/tvplanit/examples/zeosdatastore/project1.lpi +++ b/components/tvplanit/examples/zeosdatastore/project1.lpi @@ -9,7 +9,6 @@ <ResourceType Value="res"/> <UseXPManifest Value="True"/> - <Icon Value="0"/> </General> <VersionInfo> <StringTable ProductVersion=""/> diff --git a/components/tvplanit/source/vpzeosds.pas b/components/tvplanit/source/vpzeosds.pas index e8d275788..8e286c5b3 100644 --- a/components/tvplanit/source/vpzeosds.pas +++ b/components/tvplanit/source/vpzeosds.pas @@ -323,7 +323,8 @@ begin if FConnection <> nil then begin wasConnected := FConnection.Connected; Connected := false; - end; + end else + wasConnected := false; FConnection := AValue; FContactsTable.Connection := FConnection; FEventsTable.Connection := FConnection;