1 files changed, 0 insertions, 86 deletions
diff --git a/Game/Code/Classes/USong_TextFile.pas b/Game/Code/Classes/USong_TextFile.pas
deleted file mode 100644
index a3e605de..00000000
--- a/Game/Code/Classes/USong_TextFile.pas
+++ /dev/null
@@ -1,86 +0,0 @@
-unit USong_TextFile;
-
-interface
-
-{$IFDEF FPC}
-  {$MODE Delphi}
-{$ENDIF}
-
-{$I switches.inc}
-
-uses
-  Classes,
-  SysUtils,
-  USong;
-
-type
-  {*******************
-    Child of the new TSong class.
-    implements filehandling to load a song from a text file
-   *******************}
-  TSong_TextFile = class(TSong)
-    protected
-      SongFile: TextFile;
-      
-      Function OpenSongFile: Boolean;
-      Function IsDataAvailable: Boolean;
-      Function GetNextLine(): String;
-      Procedure CloseSongFile;
-  end;
-  
-implementation
-
-uses
-  ULog;
-
-//--------
-// Open the SongFile
-//--------
-Function TSong_TextFile.OpenSongFile: Boolean;
-begin
-  Result := False;
-  
-  if not FileExists(FilePath + FileName) then
-    Log.LogError('File does not exsist', FilePath + FileName)
-  else
-  begin
-    try
-      AssignFile(SongFile, FilePath + FileName);
-      Reset(SongFile);
-      Result := True;
-    except
-      Log.LogError('Faild to open file', FilePath + FileName)
-    end;
-  end;
-end;
-
-//--------
-// More data in songfile available?
-//--------
-Function TSong_TextFile.IsDataAvailable: Boolean;
-begin
-  Result := not eof(SongFile);
-end;
-
-//--------
-// Returns the next line from the SongFile
-//--------
-Function TSong_TextFile.GetNextLine(): String;
-begin
-  ReadLn(SongFile, Result);
-  Result := Trim(Result);
-end;
-
-//--------
-// Close the SongFile
-//--------
-Procedure TSong_TextFile.CloseSongFile;
-begin
-  try
-    CloseFile(SongFile);
-  except
-    Log.LogError('Error closing file', FilePath + FileName);
-  end;
-end;
-
-end.
-\ No newline at end of file