is the Value Unicode or Ansi

[randy_dom]

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

[mkinzler]

Ohne Lesen des Dateiheaders wird es nicht gehen

[randy_dom]

Zitat:

Zitat von mkinzler

Ohne Lesen des Dateiheaders wird es nicht gehen

How ?

[Bernhard Geyer]

Read the first 3 Bytes of the file for the BOM

[randy_dom]

Zitat:

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 .

[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;