Поиск:

Ответ в темуСоздание новой темы Создание опроса
> lable+fastreport составить цикл, lable+fastreport составить цикл 
V
    Опции темы
alf138
Дата 14.9.2011, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 161
Регистрация: 15.11.2009

Репутация: нет
Всего: нет
На форме лежат порядка 2-х десятков lable которые редактируются, а не которые нет, как в цикле пробежать по ним и вывести все содержимое в fast report понимаю что содержимое можно отправить так 
Код

 procedure TForm2.frxReport1GetValue(const VarName: string; var Value: Variant);
begin
if VarName = 'name1' then         
Value := Label3.Caption;

но как написать в цикле не понимаю(это данные есть только в lable) и придется на каждое передоваемое значение создавать переменную в fastreport ?, и второй вопрос в самом fast report уже выводятся данные из таблицы как сделать динамическое размещение вновь вводимых lable чтобы они не залазили друг на друга.
PM MAIL   Вверх
Akella
Дата 14.9.2011, 16:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
Погугли на тему: цикл по компонентам формы
PM MAIL   Вверх
Данкинг
Дата 14.9.2011, 16:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Цитата(Akella @  14.9.2011,  17:11 Найти цитируемый пост)
цикл по компонентам формы

Т.е. ComponentCount уже сразу.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
AndreyIQ
Дата 14.9.2011, 16:27 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: 1
Всего: 8
Цитата(Данкинг @ 14.9.2011,  16:18)
Т.е. ComponentCount уже сразу.

Можно и без
Код

var i:integer;
begin
  for i := 1 to n do
    TLabel(FindComponent('label'+IntToStr(i))).Caption:='Caption';
end;

 smile  smile  smile 
PM MAIL   Вверх
Данкинг
Дата 14.9.2011, 16:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Цитата(AndreyIQ @  14.9.2011,  17:27 Найти цитируемый пост)
Можно и без

Кстати, да. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
alf138
Дата 16.9.2011, 15:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 161
Регистрация: 15.11.2009

Репутация: нет
Всего: нет
Ладно всем спасибо пришлось 15 раз писать  smile 
    
Код

procedure TForm2.frxReport1GetValue(const VarName: string; var Value: Variant);
begin
if VarName = 'name1' then         
Value := Label3.Caption;

меняя имя лайбов и имена переменных, все конечно работает, но хотелось как то покрасивее. Всем спасибо.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0464 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.