VPF::Excel: NumberFormat - Форум программистов

UhaMurad

Дата 9.10.2005, 08:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 22.9.2004
Где: Махачкала

Репутация: нет
Всего: нет

Здравствууйте!

У меня такая проблема: при попытке через Дельфи установить свойство Range.NumberFormat Excel ругается, что нельзя этого делать!

Почему-то, при присвоении Range[some].Value := FloatToStr(somereal); в некоторых случаях Excel игнорирует запятую, разделяющую целую и дробную части. Поэтому я и хочу сначала установить формат ячеек в числовой, потом присваивать вещественные значения.

Заранее спасибо!

DimassS

Дата 10.5.2006, 02:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 12.4.2006
Где: Россия, Иркустк

Репутация: нет
Всего: 2

Посмотри, на основе типа данных из Query, задаётся тип ячейки Excel

Код


   DataModule1.Query1.First;
   repeat
     i:=i+1;
     for j:=0 to MyCol.Count-1 do
       case  DataModule1.Query1.FieldByName(MyCol.Strings[j]).DataType of
          ftFloat:
            begin
              Excel.ActiveWorkBook.ActiveSheet.cells(i,j+1):=DataModule1.Query1.FieldByName(MyCol.Strings[j]).AsFloat;
            end;
          ftCurrency :
            begin
              Excel.range[Excel.Cells[i, j+1], Excel.Cells[i, j+1]].NumberFormat:= '# ##0,0000Ё.' ;
              Excel.ActiveWorkBook.ActiveSheet.cells(i,j+1):=DataModule1.Query1.FieldByName(MyCol.Strings[j]).Value
            end
          else
            Excel.ActiveWorkBook.ActiveSheet.cells(i,j+1):=DataModule1.Query1.FieldByName(MyCol.Strings[j]).AsString;
       end;
     DataModule1.Query1.Next;
   until DataModule1.Query1.Eof; }

Это сообщение отредактировал(а) DimassS - 10.5.2006, 02:52

Albinos_x

Дата 10.5.2006, 07:17 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

http://forum.vingrad.ru/index.php?showtopic=84634

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »