Unicode в Delphi через TntListBox

← →
artkil (2008-07-23 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 © (2008-07-23 12:29) [1]

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

← →
artkil (2008-07-23 12:36) [2]

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

← →
Anatoly Podgoretsky © (2008-07-23 12:54) [3]

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

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

← →
artkil (2008-07-23 13:12) [4]

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

← →
Anatoly Podgoretsky © (2008-07-23 13:38) [5]

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

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

← →
artkil (2008-07-23 13:39) [6]

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

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

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

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

Unicode в Delphi через TntListBox Найти похожие ветки