pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix uninitialized local variable in TZeosDatastore.SetConnection.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4765 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-17 21:55:15 +00:00
parent 9df4ade9b1
commit e655a1d85e
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/tvplanit/examples/zeosdatastore/project1.lpi
View File

@ -9,7 +9,6 @@
<Title Value="project1"/> <Title Value="project1"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<Icon Value="0"/>
</General> </General>
<VersionInfo> <VersionInfo>
<StringTable ProductVersion=""/> <StringTable ProductVersion=""/>

3
components/tvplanit/source/vpzeosds.pas
View File

@ -323,7 +323,8 @@ begin
if FConnection <> nil then begin if FConnection <> nil then begin
wasConnected := FConnection.Connected; wasConnected := FConnection.Connected;
Connected := false; Connected := false;
end; end else
wasConnected := false;
FConnection := AValue; FConnection := AValue;
FContactsTable.Connection := FConnection; FContactsTable.Connection := FConnection;
FEventsTable.Connection := FConnection; FEventsTable.Connection := FConnection;