This commit is contained in:
Basile Burg 2015-11-16 14:22:08 +01:00
parent d15527338f
commit 404f007dd6
1 changed files with 3 additions and 0 deletions

View File

@ -161,6 +161,9 @@ begin
fBasePath := extractFilePath(aFilename); fBasePath := extractFilePath(aFilename);
fFilename := aFilename; fFilename := aFilename;
loader.LoadFromFile(fFilename); loader.LoadFromFile(fFilename);
//TODO-cDUB: if loaded as UTF8 it should be saved as well !
// skip BOM, this crashes the parser // skip BOM, this crashes the parser
loader.Read(bom, 4); loader.Read(bom, 4);
if (bom and $BFBBEF) = $BFBBEF then if (bom and $BFBBEF) = $BFBBEF then