diff --git a/src/sfs/sfsMemFS.pas b/src/sfs/sfsMemFS.pas
index edf35c0bed806ba75c26a1ced966930894b9daf2..627ca78f74e53caaf2f9ac1ad9c61a3d6c24d6ab 100644 (file)
--- a/src/sfs/sfsMemFS.pas
+++ b/src/sfs/sfsMemFS.pas
{$IFDEF SFS_MSMFS}
uses
- xstreams;
+ xstreams, utils;
function SLHCheckMagic (st: TStream): Boolean;
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);
initialization
memf := TSFSMemoryVolumeFactory.Create();
SFSRegisterVolumeFactory(memf);
-finalization
- SFSUnregisterVolumeFactory(memf);
+//finalization
+// SFSUnregisterVolumeFactory(memf);
{$ENDIF}
end.