diff --git a/src/sfs/sfsMemFS.pas b/src/sfs/sfsMemFS.pas
index f3fcf0b03a269babc3fc5a2b57e8306eef1187bb..03c8be287c7890367062e86b45b5b10148670e61 100644 (file)
--- a/src/sfs/sfsMemFS.pas
+++ b/src/sfs/sfsMemFS.pas
procedure SLHRead ();
procedure ReadDirectory (); override;
+
+ public
function OpenFileByIndex (const index: Integer): TStream; override;
end;
function TSFSMemoryVolumeFactory.IsMyVolumePrefix (const prefix: TSFSString): Boolean;
begin
result :=
- (SFSStrComp(prefix, 'mem') = 0) or
- (SFSStrComp(prefix, 'slh!') = 0);
+ SFSStrEqu(prefix, 'mem') or
+ SFSStrEqu(prefix, 'slh!');
end;
procedure TSFSMemoryVolumeFactory.Recycle (vol: TSFSVolume);