# | Line 188 | Line 188 | begin | |
---|---|---|
188 | UpdateAvailable := FUpgradeConf.GetUpgradeInfo(CurVersionNo+1,UpgradeInfo); | |
189 | if UpdateAvailable then | |
190 | begin | |
191 | < | if UpgradeInfo.BackupDB then |
191 | > | if UpgradeInfo.BackupDB and (FBackupService <> nil) then |
192 | begin | |
193 | CreateDir(ExtractFileDir(FArchiveStub)); | |
194 | DBArchive := FArchiveStub + '.' + IntToStr(CurrentDBVersionNo) + '.gbk'; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |