diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-07-23 19:18:31 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-07-23 19:18:31 +0000 |
| commit | 230d5ed9b8cd6ed6d8a85a53e614a3bbd6ccddb3 (patch) | |
| tree | 42e36cd0c88d5fb73c2ce52664c20aceb12300a1 /unicode/src/base/UCovers.pas | |
| parent | ceaaf48e88ba705e47cbf491720f05fda814e33b (diff) | |
| download | usdx-230d5ed9b8cd6ed6d8a85a53e614a3bbd6ccddb3.tar.gz usdx-230d5ed9b8cd6ed6d8a85a53e614a3bbd6ccddb3.tar.xz usdx-230d5ed9b8cd6ed6d8a85a53e614a3bbd6ccddb3.zip | |
TTextFileStream/TMemTextFileStream
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1886 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'unicode/src/base/UCovers.pas')
| -rw-r--r-- | unicode/src/base/UCovers.pas | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/unicode/src/base/UCovers.pas b/unicode/src/base/UCovers.pas index 0dbe672a..228a0783 100644 --- a/unicode/src/base/UCovers.pas +++ b/unicode/src/base/UCovers.pas @@ -211,9 +211,11 @@ end; procedure TCoverDatabase.Open(); var Version: integer; - Filename: IPath; + Filename, TmpPath: IPath; begin - Filename := Platform.GetGameUserPath().Append(COVERDB_FILENAME); + // TODO: remove fpc refcount workaround + TmpPath := Platform.GetGameUserPath(); + Filename := TmpPath.Append(COVERDB_FILENAME); DB := TSQLiteDatabase.Create(Filename.ToUTF8()); Version := GetVersion(); |