MBonaldo/hfs2
1
0
Fork 0
mirror of https://github.com/rejetto/hfs2.git synced 2025-12-19 18:13:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

attempt to solve the problem reported at http://rejetto.com/forum/index.php?topic=13288.msg1065650#msg1065650

Browse Source
This commit is contained in:
Massimo Melina 2020-05-10 20:26:56 +02:00
parent 9d65d35c3c
commit 4b16de3fb7
2 changed files with 692 additions and 705 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1390
hfs.drc
View File

File diff suppressed because it is too large Load Diff

7
utillib.pas
View File

@ -929,12 +929,7 @@ result:=(fn > '')
end; end;
function loadTextFile(fn:string):string; function loadTextFile(fn:string):string;
begin begin result:=UTF8decode(loadfile(fn)) end;
try result:=IOUtils.TFile.ReadAllText(fn)
except result:='' end;
try result:=UTF8decode(result)
except end;
end;
function loadFile(fn:string; from:int64=0; size:int64=-1):ansistring; function loadFile(fn:string; from:int64=0; size:int64=-1):ansistring;
var var