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

tvplanit: Fix BufDSDatastore to create DB directory if AutoCreate is true.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4802 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-22 13:37:24 +00:00
parent 78e60575cc
commit a4f762c4d4
3 changed files with 6 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/languages/demo.de.po
View File

@ -27,10 +27,6 @@ msgstr "Turbo Power VisualPlanIt Demo"
msgid "Language" msgid "Language"
msgstr "Sprache" msgstr "Sprache"
#: tmainform.label2.caption
msgid "Number of days"
msgstr ""
#: tmainform.rballtasks.caption #: tmainform.rballtasks.caption
msgid "All tasks" msgid "All tasks"
msgstr "Alle Aufgaben" msgstr "Alle Aufgaben"

4
components/tvplanit/languages/demo.po
View File

@ -17,10 +17,6 @@ msgstr ""
msgid "Language" msgid "Language"
msgstr "" msgstr ""
#: tmainform.label2.caption
msgid "Number of days"
msgstr ""
#: tmainform.rballtasks.caption #: tmainform.rballtasks.caption
msgid "All tasks" msgid "All tasks"
msgstr "" msgstr ""

7
components/tvplanit/source/vpbufds.pas
View File

@ -99,7 +99,12 @@ begin
dir := IncludeTrailingPathDelimiter(FDirectory); dir := IncludeTrailingPathDelimiter(FDirectory);
dir := ExpandFileName(dir); dir := ExpandFileName(dir);
if not DirectoryExistsUTF8(dir) then if not DirectoryExistsUTF8(dir) then
raise Exception.CreateFmt('Directory "%s" for tables does not exist.', [dir]); begin
if AutoCreate then
CreateDir(dir)
else
raise Exception.CreateFmt('Directory "%s" for tables does not exist.', [dir]);
end;
if ATableName = ResourceTableName then if ATableName = ResourceTableName then
table := FResourceTable table := FResourceTable