From 230d5ed9b8cd6ed6d8a85a53e614a3bbd6ccddb3 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 23 Jul 2009 19:18:31 +0000
Subject: TTextFileStream/TMemTextFileStream

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1886 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 unicode/src/base/UPlaylist.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'unicode/src/base/UPlaylist.pas')

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('######################################');
-- 
cgit v1.2.3