Оказалось, что файл имеет UTF-16 кодировку.
В делфи даже и не знал об этом, все как-то само работало.
Пробовал загружать строки обычным ListBox.Items.LoadFromFile - не читает.
Переделал так, как ниже, но тоже не работает.
- Код: Выделить всё
var
Form1: TForm1;
PathToKReport : String;
file_input : TextFile;
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(UTF16ToUTF8(S));
end;
CloseFile(file_input);
//ListBox.Items.LoadFromFile(OpenDialog.FileName);
end;
end;
Перелопатил инет, простого и готового решения не нашел. Помогите мне пожалуйста.
