PHP DM Gate v0.9 » Unicode в Delphi через TntListBox <span class="vd">[D7, WinXP]</span>

artkil (23.07.08 12:12) [0]

Читаю строки из текстового файла в переменную типа widestring. Потом эту строку добавляю в TntListbox. Текст почемму то не отображается в юникоде. Помогите это исправить. Вот мой код:

var f:textfile; wst:widestring;
begin
assignfile(f,'tr.txt');
reset(f);
while not eof(f) do
begin
readln(f,wst);
listbox1.Items.Add(wst);
end;
end;

<Цитата>
Dimka Maslov © (23.07.08 12:29) [1]

Сначала в string, потом в widestring, потом в ListBox. Прошу заметить, что помимо "прямого" присвоения существуют другие методы конвертации string в widestring

<Цитата>
artkil (23.07.08 12:36) [2]

Все проблема разрешилась. Использовал TTntStringlist из TNT Controls.

<Цитата>
Anatoly Podgoretsky © (23.07.08 12:54) [3]

> artkil (23.07.2008 12:12:00) [0]

textfile не работает с Юникод

<Цитата>
artkil (23.07.08 13:12) [4]

сам по себе нет, но при помощи TTntStringlist из TNT Controls можно

<Цитата>
Anatoly Podgoretsky © (23.07.08 13:38) [5]

> artkil (23.07.2008 13:12:04) [4]

У TntListBox должен быть метод LoadFromFile, конечно если не нужно добавление.

<Цитата>
artkil (23.07.08 13:39) [6]

>Anatoly Podgoretsky
Добавление нужно.

<Цитата>
Anatoly Podgoretsky © (23.07.08 13:52) [7]

> artkil (23.07.2008 13:39:06) [6]

Ну тогда решение правильное, можно и через файлы, только надо двоичное чтение и поиск ограничителя строки, то есть своя реализация TextFiles

<Цитата>
Anatoly Podgoretsky © (23.07.08 13:53) [8]

Можно конечно прочитать все в буфер, затем Text := Text + Buf;

<Цитата>