Кодировка в пути к файлу

@Daneels · Регистрация: 16.12.2013

Author24 — интернет-сервис помощи студентам

Все доброго времени суток.
Нужно в StringList прогрузить файл указанный через OpenDialog1.

Delphi

1	Lines.LoadFromFile(UTF8ToSys(OpenDialog1.FileName));

Не работает. Пробовал UTF8ToAnsii или просто LoadFromFile(OpenDialog1.FileName) - файл открываться не хочет. С английскими путями всё норм.
Стоит Windows 10 ENG. Мне какбы не сильно важна конретно эта система, но обидно, что сам Lazarus файлы с русскими путями открывать умеет. Следовательно, есть способ как это сделать. Можете мне подсказать? Может надо не через StringList?
IDE CodeTyphon 5.2(FPC 3.1.1) и еще есть Lazarus 1.2.6(FPC 2.6.4). Результат один.

Добавлено через 4 минуты
Понимаю, что тема битая, но прогуглил, не один совет, что нашел мне не помог

Добавлено через 23 минуты
OpenDialog1 до этой строчки вызываю токо Excute. Там токо пару расширений фалов в нем прописанно, а в остальном чистый

@volvo · 13.02.2015, 21:52

Сообщение от Daneels

Мне какбы не сильно важна конретно эта система

Проблема как раз не в системе, а в локализации. Была бы она у тебя RUS-все бы работало. А так - UTF8ToSys не помогает, ибо системная кодировка кириллицей не является.

@Daneels · 13.02.2015, 22:37 **[ТС]**

Покопался в fileUtil. Нашел нужную функцию

Pascal

1	Lines.Text:= ReadFileToString(OpenDialog1.FileName);

Теперь стоит обратная задача: как сохранить?

Добавлено через 1 минуту
Как пользоваться

Delphi

1	function FileOpenUTF8(Const FileName : string; Mode : Integer) : THandle; inline;

@volvo · 14.02.2015, 00:08

А попробуй

Pascal

1 2	procedure LoadStringsFromFileUTF8(List: TStrings; const FileName: string); procedure SaveStringsToFileUTF8(List: TStrings; const FileName: string);

из модуля lazutf8classes...

@Daneels · 14.02.2015, 15:21 **[ТС]**

Спасибо. Всё работает шикарно. Файл сохраняется с нормальным именем и свободно считывается в StringList

@volvo Супер-модератор 32836 / 21173 / 8148 Регистрация: 22.10.2011 Сообщений: 36,433 Записей в блоге: 8
	13.02.2015, 21:52	2
	Сообщение от Daneels Мне какбы не сильно важна конретно эта система Проблема как раз не в системе, а в локализации. Была бы она у тебя RUS-все бы работало. А так - UTF8ToSys не помогает, ибо системная кодировка кириллицей не является. 0

@Daneels 3 / 3 / 6 Регистрация: 16.12.2013 Сообщений: 44
	14.02.2015, 15:21 [ТС]	5
	Спасибо. Всё работает шикарно. Файл сохраняется с нормальным именем и свободно считывается в StringList 0

Кодировка в пути к файлу

Решение