sfs and wad code refactoring: part 1

[d2df-sdl.git] / src / sfs / sfsMemFS.pas

diff --git a/src/sfs/sfsMemFS.pas b/src/sfs/sfsMemFS.pas
index 748dbc309080210332c9bb0b98e0b951e6c369d0..627ca78f74e53caaf2f9ac1ad9c61a3d6c24d6ab 100644 (file)
--- a/src/sfs/sfsMemFS.pas
+++ b/src/sfs/sfsMemFS.pas
@@ -53,7 +53,7 @@ implementation
 
 {$IFDEF SFS_MSMFS}
 uses
-  xstreams;
+  xstreams, utils;
 
 
 function SLHCheckMagic (st: TStream): Boolean;
@@ -208,8 +208,8 @@ end;
 function TSFSMemoryVolumeFactory.IsMyVolumePrefix (const prefix: TSFSString): Boolean;
 begin
   result :=
-    SFSStrEqu(prefix, 'mem') or
-    SFSStrEqu(prefix, 'slh!');
+    StrEquCI1251(prefix, 'mem') or
+    StrEquCI1251(prefix, 'slh!');
 end;
 
 procedure TSFSMemoryVolumeFactory.Recycle (vol: TSFSVolume);