From 3b5af758a1ffb8c02c3fad2ef0acbc0c241b3de5 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 12 Sep 2008 13:19:17 +0000
Subject: removed resource.inc

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1371 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/UCommon.pas | 27 ---------------------------
 1 file changed, 27 deletions(-)

(limited to 'src/base/UCommon.pas')

diff --git a/src/base/UCommon.pas b/src/base/UCommon.pas
index 3f41dae6..f2f98537 100644
--- a/src/base/UCommon.pas
+++ b/src/base/UCommon.pas
@@ -25,7 +25,6 @@ procedure ShowMessage( const msg : String; msgType: TMessageType = mtInfo );
 
 procedure ConsoleWriteLn(const msg: string);
 
-function GetResourceStream(const aName, aType : string): TStream;
 function RWopsFromStream(Stream: TStream): PSDL_RWops;
 
 {$IFDEF FPC}
@@ -305,32 +304,6 @@ begin
 {$IFEND}
 end;
 
-
-// include resource-file info (stored in the constant array "resources")
-{$I ../resource.inc}
-
-function GetResourceStream(const aName, aType: string): TStream;
-var
-  ResIndex: integer;
-  Filename: string;
-begin
-  Result := nil;
-
-  for ResIndex := 0 to High(resources) do
-  begin
-    if (Resources[ResIndex][0] = aName ) then
-    begin
-      try
-        Filename := ResourcesPath + Resources[ResIndex][1];
-        Result := TFileStream.Create(Filename, fmOpenRead);
-      except
-        Log.LogError('Failed to open: "'+ resources[ResIndex][1] +'"', 'GetResourceStream');
-      end;
-      Exit;
-    end;
-  end;
-end;
-
 // +++++++++++++++++++++ helpers for RWOpsFromStream() +++++++++++++++
 function SdlStreamSeek( context : PSDL_RWops; offset : Integer; whence : Integer ) : integer; cdecl;
 var
-- 
cgit v1.2.3