diff --git a/src/ce_dubproject.pas b/src/ce_dubproject.pas index 1b4cb180..8ff4d18f 100644 --- a/src/ce_dubproject.pas +++ b/src/ce_dubproject.pas @@ -178,6 +178,7 @@ begin loader.WriteByte(byte('{')); loader.WriteByte(byte('}')); loader.Position:= 0; + fFilename := ''; end else if ((bom and $FEFF) = $FEFF) or ((bom and $FFFE) = $FFFE) then begin @@ -186,12 +187,13 @@ begin loader.WriteByte(byte('{')); loader.WriteByte(byte('}')); loader.Position:= 0; + fFilename := ''; end else loader.Position:= 0; // FreeAndNil(fJSON); - parser := TJSONParser.Create(loader); + parser := TJSONParser.Create(loader, fSaveAsUtf8); try try fJSON := parser.Parse as TJSONObject;