Показать сообщение отдельно
  #8  
Старый 01.03.2017, 11:08
Аватар для ffpereverzev
ffpereverzev ffpereverzev вне форума
Новичок
 
Регистрация: 14.02.2017
Сообщения: 50
Версия Delphi: Delphi 7
Репутация: 10
Лампочка

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

При экспорте данных из 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;
Ответить с цитированием