Delphi 7 и снова о UTF-8

[celovec]

Загружается txt файл (UTF-8):

var  qBuff: TStringList;
begin
  qBuff:=TStringList.create; 
  qBuff.loadFromFile(edit1.Text);

Далее его содержимое показывается в Edit2.Text.

Я знаю что Delphi начал поддерживать UTF-8 начиная только с 2009 версии. Но быть может мою задачу можно решить и на Delphi 7?

Тоесть в txt файле немецкие предложения, в них есть эти буквы с двойными точками наверху, возможно ли их как-то вывести в Edit2?

[veniside]

1) TStringList не будет правильно загружать UTF-8 никогда. UTF-8, фактически, нужно рассматривать как бинарный формат, т.е. читать его как набор байт, а не строк.

2) Прочитав UTF-8 байты, их нужно перевести в юникод с помощью MultiByteToWideChar(CP_UTF8, ....). Поддерживается это, кстати, начиная с четвёртой (или 3-ей?) версии Дельфи.

3) Получив нормальный юникод, переводим его в ANSI строку (т.к. стандарные VCL контролы могут отображать юникод напрямую только начиная с 2009 версии Дельфи) с помощью WideCharToMultiByte();
При переводе важно правильно указать кодовую страницу, для большинства европейских языков пойдёт 1252.

4) полученную ANSI строку записываем в Edit. Не забываем в Font.CharSet выставить правильное значение. Опять же, для европы пойдёт BALTIC_CHARSET.


Фактически, шаг №3 можно пропустить, т.к. юникод автоматически преобразуется в ASNI строку при присвоении Edit.Text, но могут быть проблемы с неевропейскими кодировками.

[Serge_Bliznykov]

TStringList не будет правильно загружать UTF-8 никогда.

никогда не говори "никогда"....

рекомендую ознакомится со статьёй уважаемого GunSmoker'а

Работа с текстовыми файлами в любой кодировке из Delphi до 2009
_________________________

Но в целом я согласен с veniside.

впрочем, полученные unicode данные всё равно в простой не-unicode TEdit просто так отобразить не удастся!
(если не воспользоваться способом преобразования в ANSI описанном выше veniside)


p.s. если есть возможность - рассмотрите переход на более свежую версию Delphi

[veniside]

> никогда не говори "никогда"

точно )

Ещё вариант — найти юникодные визуальные компоненты для Delphi младше 2009. Ну или наваять их самому, там не так уж и много работы, если не озадачиваться поддержкой юникода на 95/98/Me винде )

[chertovich]

Перепиши класс с использованием Unicod-a и все)
а лучше пересядь на более новую Среду разработки