[ffpereverzev]

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

Вдруг кому-то будет интересно.

При экспорте данных из StringGrid в ячейки Excel обнаружилась интересная особенность: когда экспортируются данные в ячейки, которые были отформатированы изначально как денежные или числовые, то если разделитель ",", а не ".", то ячейки меняют свой формат на "Текстовый" (при настройках российской локализации MS Windows где, соответственно, разделитель целой и дробной части ","). Я решил эту проблему таким образом:
1. Во-первых, ввел ограничение на тип вводимых символов в StringGrid;
2. Во-вторых, сделал конвертацию символа "," в символ "."

Код:

procedure TForm7.StringGrid1KeyPress(Sender: TObject; var Key: Char);
    begin
        // Обработка столбца для ввода текстовых значений
        if (StringGrid1.Col=0) then
          if not (key in ['а'..'я','А'..'Я',' ','-',#8]) then key:=#0;
        // Обработка столбца для ввода цифровых значений
        if (StringGrid1.Col=1) then
          if not (key in ['0'..'9','.',Sysutils.DecimalSeparator,#8]) then key:=#0;
          // Замена символа "," на символ "."
          if key in [','] then key := '.';
    end;

И в дополнение к вышеуказанному коду. Чтобы уж наверняка решить проблему изменения формата при циклическом заполнении ячеек получилось сотворить следующее извращение:

Код:

// Заполнение ячеек документа Excel
    j:= 1;
    for i := 17 to 39{40} do
     begin
       // Заполнение столбца "Отчетные документы"
       MyDoc.Range['C' + IntToStr(i)]:= StringGrid1.Cells[0,j];
       // Заполнение столбца "Стоимость"
       MyDoc.Range['J' + IntToStr(i)]:= StringGrid1.Cells[1,j];
       // Приравнивание формата заполняемых ячеек формату уже существующей ячейки
       MyDoc.Range['J' + IntToStr(i)].NumberFormat:= MyDoc.Range['J16'].NumberFormat;
       Inc(j);
     end;