работа с файлами

[earendill]

Подскажите, по чему не работает? В дельфи всегда получалось. Заранее благодарен.

Код: Выделить всё

procedure TForm1.ExportPole;
var
   F : File of TPointTemperature;
   index1, index2 : integer;
   data : TPointTemperature;
begin
if OpenDialog1.Execute then
begin
   AssignFile(f,OpenDialog1.FileName );
   reset(f);
   read(f,data);
   closefile(f);
   end;
end;

Пользуйтесь тегом CODE! Он не зря придуман!!!

[Padre_Mortius]

Предположу что в пути к выбираемому файлу присутствуют русские буквы, соответственно код строки выбора файла будет выглядеть примерно так

Код: Выделить всё

AssignFile(f,SysToUTF8(OpenDialog1.FileName) );

P.S. Указывайте пожалуйста версию системы, ее битность, версию FPC и Лазаруса. Если есть ошибка, то хотя бы ее текст

[earendill]

Попробовал ваш вариант, тотже результат ошибка 'RunError(3)'
использую лазарус 9.26.2 под виндой

[Mr.Smart]

Предположу что в пути к выбираемому файлу присутствуют русские буквы, соответственно код строки выбора файла будет выглядеть примерно так

Код: Выделить всё

AssignFile(f,SysToUTF8(OpenDialog1.FileName) );

P.S. Указывайте пожалуйста версию системы, ее битность, версию FPC и Лазаруса. Если есть ошибка, то хотя бы ее текст

в точности да наоборот

Код: Выделить всё

AssignFile(f,UTF8ToSys(OpenDialog1.FileName) );

Для FCL необходима системная кодировка, а для LCL UTF-8

[Padre_Mortius]

в точности да наоборот

Полностью согласен. Давно под Windows не писал. Все больше под Linux

[Mr.Smart]

Полностью согласен. Давно под Windows не писал. Все больше под Linux

Ну да, локали отличные от UTF-8 в Linux разве не встречаются?

[Padre_Mortius]

Встречаются. но у меня они не используются. А так как текущие проекты исключительно под себя, то смысла в такой конвертации не вижу в принципе.
P.S. Отклонились от темы)