FreePascal.ru

Ууу... Темный лес. Знаю, что это не по правилам, но может кто покажет функцию готовую для чтения таких файлов? Или замену ReadLn и EoF?

Пересохранил без BOM, только символ плюса есть и все. Этот символ там действительно есть.
Использовал utf8encode - то же самое.

Ism писал(а):Надо Memo1.Lines.LoadFromFile

Сделал и так.

Только три символа добавляются, ??+

procedure TForm1.OpenFileClick(Sender: TObject);
var
S: WideString;
begin
If OpenDialog.Execute then
begin
AssignFile(file_input, OpenDialog.FileName);
Reset(file_input);
While not eof (file_input) do
begin
ReadLn(file_input, S);
ListBox.Items.Add(UTF8Encode(S ...

Не работает, проверил.
ReadLn точно способен прочесть конец строки в UTF-16?
eof способен найти конец файла правильно в таких файлах?

Создается очень мало строк и все они пустые, кроме первой. В первой только символы яю+ и все.

Открыл акелпадом, сохраняю-как...
Предлагает 1200 UTF-16 LE, галочка BOM стоит.

Для теста сохранил в UTF-8, закоментировал преобразование UTF16toUTF8 и все работает.
Но конвертировать файл нельзя, нужно использовать оригинальный формат.

Если я переставляю галочку на что-либо другое - вижу кракозябры.
В ListBox добвляется всего пара десятков строк, хотя в файле их несколько сотен.
Думаю, проблема в ReadLn, но не уверен.

Не могу прочитать нормально текстовый файл.
Оказалось, что файл имеет UTF-16 кодировку.
В делфи даже и не знал об этом, все как-то само работало.

Пробовал загружать строки обычным ListBox.Items.LoadFromFile - не читает.
Переделал так, как ниже, но тоже не работает.


var
Form1: TForm1 ...