Экспорт ODF

aaleo

Наталкнулся на неправильный экспорт в ODF. Запятые в качестве разделятеля просто игнорировались. Излечилось следующим:
файл frxExportODF.pas строка 764

было

  if ((s[l] >= '0') and (s[l] <= '9')) or (s[l] <= '-') then

нужно

  if ((s[l] >= '0') and (s[l] <= '9')) or (s[l] = '-') then

fr 4.1.40 D6

Да еще при первом запуске экспорта возникает ошибка 183 повторный запуск проходит нормально.
Нашел.

Этот же файл строка 353

  MkDir(FTempFolder);

здесь и падает если есть такая папка
излечилось так

  {$I-}
  MkDir(FTempFolder);
  MkDir(FTempFolder + 'Pictures');
  MkDir(FTempFolder + 'Thumbnails');
  if IOResult = 0 then;
  {$I+}