is the Value Unicode or Ansi

[Bernhard Geyer]

From JclUnicode.pas (JCL)

Delphi-Quellcode:

const
  BOM_LSB_FIRST = WideChar($FEFF); 
  BOM_MSB_FIRST = WideChar($FFFE);


var
  BytesRead: Integer;
  Order: WideChar;
begin
  ...
    BytesRead := Stream.Read(Order, 2);
    if (Order = BOM_LSB_FIRST) or (Order = BOM_MSB_FIRST) then
   ...
end;