FreePascal.ru

alexs, не работает
видно что-то не то с Lazarus. попробовал в Delphi 7 - все нормально

Добавлено спустя 10 часов 56 минут 19 секунд:
Правильный ответ для меня оказался малость странным:
excel.Workbooks.Open(WideString(UTF8Decode(FileNames[0]))); - это при получении пути ...

Так же пробовал:
var str: string;
str:='C:\Users\user\Desktop\Лист Microsoft Office Excel.xlsx';
excel.Workbooks.Open(UTF8Decode(str));
Теперь почти работает. При запуске из Lazarus выдает External: SIGSEGV, при запуске из винды Access violation, при запуске из под винды ...

Спасибо. буду пробовать.
А вот если убрать {$codepage UTF8} (было прописано вручную). Это надо к каждому выводу сообщения перекодировку подключать? (без codepage лезут иероглифы)

Не. Уже переворошил AnsiToUTF8 и обратно. Странно то что при передаче текста напрямую в Open дает правильный результат, а через переменную - нет (в самом начале пример 1). Простите по поводу try except (я забыл что внутри компилятора все ошибки ловятся даже из блока try)
Ссылка на архив с проектом ...

Просмотреть код не удается, но заметил кое-что интересное (путь к файлу внутри программы странно обрабатывается (русские буквы)). Вот пример из списка наблюдений
FileNames(массив)
Длина=1:
(0x112648 'C:\Users\user\Desktop\'#208#155#208#184#209#129#209#130' Microsoft Office Excel.xlsx')
FileNames[0 ...

а можно подсказать как это реализовать, чтоб передавать переменную? ведь первый вариант почти 100% копия 3его варианта. Примечание: было добавлено {$codepage utf8} из-за того что сообщения MessageBox выводили иероглифы. Пробовал удалять эту строку - результат одинаковый

Здравствуйте. Информация: Lazarus 1.0.14, FPC 2.6.2, Win 8.1
Начал писать простенький парсер для Excel файлов. И натнулся на проблему, что Workbooks.Open не воспринимает переменные. Пример:
str:='C:\Users\User\Desktop\Анкета.xls';
excel.Workbooks.Open(str);
Ошибка (не ...