powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / FastReport необычный подсчет количества страниц
9 сообщений из 34, страница 2 из 2
FastReport необычный подсчет количества страниц
    #39727172
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В отчете переменные как присваиваются?
...
Рейтинг: 0 / 0
FastReport необычный подсчет количества страниц
    #39727175
dartveider13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
wadman, В отчете я использую их только в скрипте. Вот так:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure Page1OnAfterPrint(Sender: TfrxComponent);
begin
 Set('Page2Count', 0);
 Set('Page3Count', 0);
end;

procedure PageFooter2OnAfterPrint(Sender: TfrxComponent);
begin
 Set('Page2Count', <Page2Count> + 1);
end;

procedure PageFooter3OnAfterPrint(Sender: TfrxComponent);
begin
 Set('Page3Count', <Page3Count> + 1);
end;
...
Рейтинг: 0 / 0
FastReport необычный подсчет количества страниц
    #39727182
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня кончились версии. :)
...
Рейтинг: 0 / 0
FastReport необычный подсчет количества страниц
    #39727183
zinpub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В каком обработчике получать пытаешься? попробуй в OnEndDoc...

Переменные определенны только в момент формирования
...
Рейтинг: 0 / 0
FastReport необычный подсчет количества страниц
    #39727187
dartveider13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
wadman, во во, и я о том же))) Самое что смешное. Да в самом отчете если их вывести в какое-нибудь мемо, все прекрасно считается. Я уже попробовал тупо из мемо взять:

Код делфи (не отчета):

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
var
frPage2, frPage3: TfrxMemoView;
s1, s2: String;
begin

//**

frxReport.PrepareReport(True);

frPage2 := frxReport.FindObject('Page2Count') as TfrxMemoView;
frPage3 := frxReport.FindObject('Page3Count') as TfrxMemoView;

s1 := frPage2.Memo.Text;
s2 := frPage3.Memo.Text;

ShowMessage // Выводит название мемок в квадратных скобках

end;
...
Рейтинг: 0 / 0
FastReport необычный подсчет количества страниц
    #39727188
dartveider13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zinpub, это обработчик нажатия кнопки на форме
...
Рейтинг: 0 / 0
FastReport необычный подсчет количества страниц
    #39727194
dartveider13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zinpub, Слушай ну точно! По отладчику получилось в этом событии получить данные с переменных. Спасибо большое!
wadman, отдельное спасибо за идею и активное участие)))
...
Рейтинг: 0 / 0
FastReport необычный подсчет количества страниц
    #39727199
Фотография aleksandr-pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
dartveider13,

можно попробовать еще такой вариант каждой странице назначит поле Tag =1 а второй странице 2

Код: pascal
1.
2.
for x:=0 to Report.PreviewPages.Count-1 do
if Report.PreviewPages.Page[x].Tag=1 then 
...
Рейтинг: 0 / 0
FastReport необычный подсчет количества страниц
    #39727201
dartveider13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
aleksandr-pro, ну да))) Тоже как вариант... Запомню. Спасибо.
...
Рейтинг: 0 / 0
9 сообщений из 34, страница 2 из 2
Форумы / Delphi [игнор отключен] [закрыт для гостей] / FastReport необычный подсчет количества страниц
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]