Codierung (ANSI, UTF-8) einer Textdatei ermitteln

[ConnorMcLeod]

ich weiss nicht mehr, wo diese Idee her ist; mglw von Himitsu:

Delphi-Quellcode:

var
  sData       : TFileStream;
  sInhalt     : WideString;
  nBytes      : int64;
  Buffer      : TBytes;
  Encoding    : TEncoding;
begin
  sData     := TFileStream.Create(AFileName, fmOpenRead);
  try
    sData.Seek(0, soFromBeginning);
    nBytes := sData.Size - sData.Position;
    SetLength(Buffer, nBytes);
    Encoding := nil;
    sData.Read(Buffer[0], nBytes);
    nBytes   := TEncoding.GetBufferEncoding(Buffer, Encoding);
    sInhalt  := Encoding.GetString(Buffer, nBytes, Length(Buffer)-nBytes);

Ist daran etwas nicht gut?