[fpc-pascal] Issue with CSVDocument

[Bart]

On Mon, Feb 7, 2022 at 9:54 PM James Richters via fpc-pascal
<fpc-pascal at lists.freepascal.org> wrote:

> The part of my program that checks for the BOM is bigger than the actual CSV read and write.  Please let me know if the crash issue with no BOM gets fixed so I can delete all this stuff that checks for it.

That part can be a lot shorter:
Open the file as a TFileStream
Read the amount of bytes the UTF8-BOM has int an appropriate buffer.
Check you really read that amount of bytes.
Compare the buffer to the expected UTF8-BOM.

This is a snippet from a function I have lying around:

    FS := TFileStreamUtf8.Create(Fn, fmOpenRead or fmShareDenyNone);
    try
      Len := FS.Read({%H-}Buf[0], BufLen);
      if (Len > 2) and (Buf[0]=$EF) and (Buf[1]=$BB) and (Buf[2]=$BF) then
      begin
        //UTF8 BOM


-- 
Bart