Кодировка (Делфи)

[Simply-Art]

Как можно определить кодировку открываемого файла? Открытие в мемо, чтобы сразу перевести в понятный язык. Типа как в Бреде. Можно пример

[mutabor]

Пример не дам, но есть предположение:
Читай заголовок файла. Вобщем поглубже уровня TMemo нужно вникнуть в тему.

[Simply-Art]

Э .. ну в какую сторону то вникать, что искать и с помощью чего. А то чёт обстрактно всё

[mutabor]

А то чёт обстрактно всё

Так и есть =)

О каких файлах собственно речь?
Вот>>> например структура txt

[knight]

Сначала прочитать как текст, затем определить кодировку либо по окончаниям #13#10 - ansi, либо по таблице символов для каждой кодировки... т.е. из какой таблицы кодов больше в тексте, следовательно кодировка и будет скорее всего указанная в таблице.... А дальше нужно преобразовать по тем же таблицам полученную кодировку в "родной" формат windows ANSI

[alexBlack]

могу предложить пример определения кодировки текстового файла
(распознает две кодировки DOS/WIN).

function isWinCodePage(fName:String):boolean;
var F:TFileStream;
    buffer:array [1..1024] of byte;
    C, i, C1, C2:integer;
    S1, S2:String;
    WC, DC:array [char] of byte;
begin
   F := TFileStream.Create(fName, fmOpenRead);
   try
      fillChar(WC, sizeOf(WC), 0);
      fillChar(DC, sizeOf(DC), 0);
      C := F.read(buffer, 1024);
      for i:=1 to C do begin
         S1 := chr(Buffer[i]);
         S2 := chr(Buffer[i]);
         OEMToChar(PChar(S1), PChar(S2));
         inc(WC[S1[1]]);
         inc(DC[S2[1]]);
      end;
      C1 := 0; C2 := 0;
      for i:=0 to 255 do begin
         if chr(i) in ['О','Т','Е','Н','А','Р',
                       'о','т','е','н','а','р']
         then begin
            inc(C1, WC[chr(i)]);
            inc(C2, DC[chr(i)]);
         end;
      end;
      result := C1 > C2;
   finally
      F.free;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   if isWinCodePage('win.txt')
   then label1.Caption := 'WIN'
   else label1.Caption := 'DOS';
...

[Simply-Art]

Спасибо всем, все пошло как надо.
PS to knight
#13#10 - это перенос, он и в "африке" перенос (ansi,koi,oem) и по нему не поределить