Как распознать кодировку текстового файла

[SergeySmlInf]

Существует такая проблема:
Данные для программы могут быть приготовлены в любом текстовом редакторе и сохранены в текстовом файле.
Как можно при открытии файла определить какая кодировка была использована в нем?

[Mr.Smart]

Есть алгоритм основанный на частоте появленя определённых букв. Опледеление работает практически на 100%.

[SergeySmlInf]

Спасибо!
Разбираюсь...

[SergeySmlInf]

Вообщем, помогло мало...
Решил задачу по другому:
Читаю текст, загружаю строку в TEdit
если в Edit1.text пусто считаю, что кодировка не UTF8

[Mr.Smart]

Как определяешь, что пусто?

Добавлено спустя 37 секунд:
А вдруг в тексте присутствует Латиница?

[SergeySmlInf]

А у меня первая строка файла данных содержит заголовок кириллицей.
А сравниваю тупо размеры: считаную строку с этой же строкой помещенной в Tmemo, TlistBox, TEdit
Пока глюков не было...

[Mr.Smart]

Зачем такие сложности?

Код: Выделить всё

var
s: String;
...
  if Utf8ToUnicode(nil,0,PChar(s),Length(s))<>-1 then
   // UTF8
  else
  // Ansi
...