Hi ,

How to detect if a File or a folder is a Unicode or Ansi with/out reading the BOM .

somthing like this :

Function IsUnicode(Value:String):Boolean;



Thanks

Ohne Lesen des Dateiheaders wird es nicht gehen

Zitat von mkinzler:

Ohne Lesen des Dateiheaders wird es nicht gehen

How ?

Read the first 3 Bytes of the file for the BOM

Zitat von Bernhard Geyer:

Read the first 3 Bytes of the file for the BOM

thank you Bernhard Geyer

Could you give me an example for that .

From JclUnicode.pas (JCL)

zusammenfalten · markieren

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;