Считывание из файла, для определения кодировки

[Arteom]

Всем доброго времени суток! Подскажите пожалуйста как правильно считывать данные из текстового файла, для дальнейшего определения кодировки и преобразования считанного в Win-кодировку с записью в новый файл с преобразованной кодировкой. Я считываю ReadLn(txt_file, str). Таким образом считанное у меня получается в stringe. Далее мне нужно опредилять кодировку, не возникнет ли тут каких-либо проблем? И далее, когда мне необходимо перекодировать из Unacoda, использую ф-цию WideCharToString, у нее на входе WideChar, соответственно пишу str_to_rec := WideCharToString(PWideChar(str)) и уже str_to_rec записываю в новый файл. Но правильно ли это?

[BOBAH13]

Там первые два-три байта описывают кодировку текстового файла. Если их нет т.е. при сравнении будет последнее значит ASCII Информации о том как записываются файлы ( кодировки ) в сети куча. Ищем и читаем. Все нужные функции есть в System.pas. Сам бы выложил, но найти не могу то что писал однажды...

[Arteom]

Не получается на этапе перекодирования. Вот я определил что у меня Unicode. Как дальше преобразовать юникодный текст, считанный из файла в переменную типа string в Win-кодировку? С помощью WideCharToString не получается.

[BOBAH13]

Может у вас не Unicode, а UTF8 ? Если точно unicode то функция должна работать, если вы все верно делаите.

[Arteom]

У меня точно Unicode. А вот делаю я наверняка не правильно, но не пойму как сделать правильно. Думаю проблема в том, что я считываю из файла в Buffer, далее делаю вот что, что скорее всего не верно:
buffer_len := Length(Buffer);
for i:=1 to buffer_len do
begin
wide_char := PWideChar(Buffer[i]);
result := result + WideCharToString(wide_char);
end;
Получается что преобразовываю типы туда сюда, наверное тут и ошибка. Подскажите как правильно.

[BOBAH13]

Unicode - WCHAR ( PWCHAR = PWideChar = ^WCHAR ) занимает Word = 2 байта.
ASCII - CHAR ( PCHAR = PAnsiChar = ^CHAR ) занимает Byte = 1 байт.

Следовательно перебирать надо не по одному байту, а сразу за заход по два... Думаю поняли. И если уж даете код, то давайет сразу и типа переменных ( директива Var )

[Arteom]

Спасибо большое, разобрался.