aboutsummaryrefslogtreecommitdiffstats
path: root/src/base/UCommon.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/base/UCommon.pas')
-rw-r--r--src/base/UCommon.pas27
1 files changed, 0 insertions, 27 deletions
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