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/UPlaylist.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/UPlaylist.pas')
| -rw-r--r-- | unicode/src/base/UPlaylist.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unicode/src/base/UPlaylist.pas b/unicode/src/base/UPlaylist.pas index 09c196ef..03ae2ffb 100644 --- a/unicode/src/base/UPlaylist.pas +++ b/unicode/src/base/UPlaylist.pas @@ -184,7 +184,7 @@ begin //Load File try FilenameAbs := PlaylistPath.Append(Filename); - TextStream := TTextFileStream.Create(FilenameAbs, fmOpenRead); + TextStream := TMemTextFileStream.Create(FilenameAbs, fmOpenRead); except begin Log.LogError('Could not load Playlist: ' + FilenameAbs.ToNative); @@ -260,7 +260,7 @@ begin Exit; // open file for rewriting - TextStream := TTextFileStream.Create(PlaylistFile, fmCreate); + TextStream := TMemTextFileStream.Create(PlaylistFile, fmCreate); try // Write version (not nessecary but helpful) TextStream.WriteLine('######################################'); |