0

Собственно имеется текст который лежит в переменной типа tstringlist. Я его сохраняю скажем в ***.html но кодировка стоит UTF-8 без BOM. И поэтому появляются кракозябры, а в анси всё норм. Как перевести?

1 ответ 1

2

В Д7 есть прекрасная функция AnsiToUTF8

3
  • а играет роль что с BOM или без него? 4 апр 2013 в 8:28
  • Функция про БОМ ничего не знает. И его наличием не интересуется. 4 апр 2013 в 8:48
  • вот еще вариант, болше похожий на правду :) function cp1251ToUTF8(ansi: AnsiString): UTF8String; var ustr: AnsiString; wcharcount: Integer; begin wcharcount := Length(ansi); SetLength(ustr, wcharcount*2); SetLength(Result, wcharcount*2); wcharcount := MultiByteToWideChar(1251, 0, PChar(ansi), wcharcount, PWideChar(ustr), 2*wcharcount); if wcharcount > 0 then UnicodeToUtf8(PChar(Result), Length(Result), PWideChar(ustr), wcharcount) else raise Exception.Create('Can not translate to Unicode'); end; 4 апр 2013 в 10:29

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.