[Font]Tester si la police est unicode

**Zatoobux** · 06/03/2008, 20h36

Salut,

Est il possible de savoir, à l'exécution, si une police est Unicode ou non ?

Merci.

**BeTuLa** · 07/03/2008, 02h52

Bonjour,
Si la question est de déterminer si un fichier texte est en unicode, voici une fonction trouvée sur le net. Malheureusement je ne peux citer avec certitude l'auteur pour lui en donner le crédit mais elle est efficace (peut-être Peter Below (TeamB)).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function TextFileIsUnicode(const TextFilename: string): boolean;
var
  FS : TFileStream;
  w : word;
begin
  result := false;
 
  if FileExists(TextFilename) then begin
    FS := TFileStream.Create(TextFilename, fmOpenRead or fmShareDenyNone);
    try
      if FS.Read(w, SizeOf(w)) = SizeOf(w) then
        result := (w = $FEFF) or // little-endian
                  (w = $FFFE);   // big-endian
    finally
      FS.Free;
    end;
  end;
end;