mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0001178] Revision 6273 won't build

Browse source
This commit is contained in:
Alexander Koblov 2015-09-24 17:03:58 +00:00
commit e4fcc38cc8
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/filesources/multiarchive/umultiarchiveutil.pas
View file

@ -19,7 +19,7 @@ type
TOnGetArchiveItem = procedure(ArchiveItem: TArchiveItem) of object;
TGetFileAttr = function(sAttr: String): TFileAttrs;
TGetFileName = function(const Str: String): UTF8String;
TGetFileName = function(const Str: String): String;
TKeyPos = record
Index,
@ -88,7 +88,7 @@ uses
LCLProc, FileUtil, StrUtils, DCClassesUtf8, uDCUtils, DCOSUtils, uOSUtils,
DCDateTimeUtils, uDebug, uShowMsg, uLng, DCFileAttributes;
function GetUnixFileName(const Str: String): UTF8String;
function GetUnixFileName(const Str: String): String;
var
I: Integer;
begin
@ -97,7 +97,7 @@ begin
if Result[I] = '/' then Result[I]:= PathDelim;
end;
function GetWinFileName(const Str: String): UTF8String;
function GetWinFileName(const Str: String): String;
var
I: Integer;
begin