Горизонтальный цикл.

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Alexander
Местный житель
Сообщения: 248
Зарегистрирован: 28 ноя 2006, 13:29

Горизонтальный цикл.

Сообщение Alexander »

Проблема следущая:
есть форма и горизонтальный цикл:

Код: Выделить всё

.fields
   SomeField1
   SomeField2
   SomeField3
   SomeField4
.endfields
<.?somecode; ^ ^ ^ ^.>
и прилинкованная:

Код: Выделить всё

.var
   SomeNewField
.endvar
.fields
   SomeField1
   SomeField2
   SomeNewField
.endfields
<.?somecode; ^ ^.>
.begin
   SomeNewField := SomeField3 + SomeField4;
.end
   ^
SomeNewField всегда 0! Как проссумировать горизонтальный цикл??
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

просто - вывести поле в него функцией, в которой и просуммировать.
Alexander
Местный житель
Сообщения: 248
Зарегистрирован: 28 ноя 2006, 13:29

Сообщение Alexander »

edward_K
немножко поподробнее можно? :-)
поток формируется випом, сама форма ни малейшего понятия не имеет что за данные-только их форматированный вывод...
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

в форме
.var
wsu:double ;
.endvar
.function DDD(w:double):double ;
begin
wsu:=wsu+w ;
DDD:=w
end.
.fields
..
ddd(double(field1))
.endfields
и вообще ищите на форуме темы по выводу в EXcel.
Alexander
Местный житель
Сообщения: 248
Зарегистрирован: 28 ноя 2006, 13:29

Сообщение Alexander »

edward_K
большое спасибо! :-)
Ответить