sfs: using locale-insensitive comparisons

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

diff --git a/src/sfs/sfsZipFS.pas b/src/sfs/sfsZipFS.pas
index b3a83245b24a00609629b52bf32537e68d32a251..5b6dafda3ee2e07b5a489e143f9f34798db725d5 100644 (file)
--- a/src/sfs/sfsZipFS.pas
+++ b/src/sfs/sfsZipFS.pas
@@ -481,12 +481,12 @@ end;
 function TSFSZipVolumeFactory.IsMyVolumePrefix (const prefix: TSFSString): Boolean;
 begin
   result :=
-    (SFSStrComp(prefix, 'zip') = 0) or
-    (SFSStrComp(prefix, 'jar') = 0) or
-    (SFSStrComp(prefix, 'fout2') = 0) or
-    (SFSStrComp(prefix, 'vtdb') = 0) or
-    (SFSStrComp(prefix, 'wad') = 0) or
-    (SFSStrComp(prefix, 'dfwad') = 0);
+    SFSStrEqu(prefix, 'zip') or
+    SFSStrEqu(prefix, 'jar') or
+    SFSStrEqu(prefix, 'fout2') or
+    SFSStrEqu(prefix, 'vtdb') or
+    SFSStrEqu(prefix, 'wad') or
+    SFSStrEqu(prefix, 'dfwad');
 end;
 
 procedure TSFSZipVolumeFactory.Recycle (vol: TSFSVolume);