Экспорт в Excel

Комментарии

• Draeden

  December 2010 отредактировано 10:14

  Для определения того, что текст - число, экспорт FR использует символы SysUtils.DecimalSeparator и SysUtils.ThousandSeparator; эти символы определяет код написанный разработчиками Delphi. Проблема в том, что на некоторых системах эти символы неправильные - они не совпадают с аналогичными символами которые показывает Windows в панели управления. Такие системы редки и как с этим бороться пока непонятно.
• PNP

  December 2010 отредактировано 10:14

  Draeden написал: »

  Для определения того, что текст - число, экспорт FR использует символы SysUtils.DecimalSeparator и SysUtils.ThousandSeparator; эти символы определяет код написанный разработчиками Delphi. Проблема в том, что на некоторых системах эти символы неправильные - они не совпадают с аналогичными символами которые показывает Windows в панели управления. Такие системы редки и как с этим бороться пока непонятно.

  Достаточно перед экспортом брать системный сепаратор.

  procedure TfrxPreview.Export(Filter: TfrxCustomExportFilter);
  var
    ASeparator:Char;
    begin
    if FRunning then
      Exit;
   ASeparator := DecimalSeparator;
    DecimalSeparator := GetLocaleChar(GetThreadLocale, LOCALE_SDECIMAL, '.');
    try
      PreviewPages.CurPreviewPage := PageNo;
      if Report.DotMatrixReport and (frxDotMatrixExport <> nil) and
        (Filter.ClassName = 'TfrxTextExport') then
        Filter := frxDotMatrixExport;
      PreviewPages.Export(Filter);
    finally
      Unlock;
      DecimalSeparator := ASeparator;
    end;
  end;
  
• eshumakher

  December 2010 отредактировано 10:14

  Draeden написал: »

  Для определения того, что текст - число, экспорт FR использует символы SysUtils.DecimalSeparator и SysUtils.ThousandSeparator; эти символы определяет код написанный разработчиками Delphi. Проблема в том, что на некоторых системах эти символы неправильные - они не совпадают с аналогичными символами которые показывает Windows в панели управления. Такие системы редки и как с этим бороться пока непонятно.

  
  Сделала тест. Символы, которые используются в качестве SysUtils.DecimalSeparator и SysUtils.ThousandSeparator в Windows такие же, как настроены в формате отображения отчета. Кроме того, клиент говорит, что до обновления FastReport до версии 4.10 все прекрасно работало.
  Странно, пишу символ в виде числа в Excel (без апострофа <´>), но формат колонки - текст. При XML-экспорте все хорошо, но структура отчета отображается неправильно. А при OLE - такая ошибка.
• Draeden

  December 2010 отредактировано 10:14

  PNP написал: »

  Достаточно перед экспортом брать системный сепаратор.

  Это делает системный код Delphi, точнее функция SysUtils.TFormatSettings.Create, но полученные значение где то теряются до вызова экспорта.
  
• PNP

  December 2010 отредактировано 10:14

  Draeden написал: »

  Это делает системный код Delphi, точнее функция SysUtils.TFormatSettings.Create, но полученные значение где то теряются до вызова экспорта.

  SysUtils.DecimalSeparator - переменная для конкретной программы, не для всей системы. Если юзеру в конкретной программе нужен свой какой-то разделитель (что встречается сплошь и рядом) - не менять же в настройках системы (другим программам будет совсем не уютно ). А при экспорте это не учитывается и получается косяк.
  Хотя, судя по предыдущему посту топикстартера - дело может быть и не в этом.