ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Номер компонента в цикле
5 сообщений из 5, страница 1 из 1
Номер компонента в цикле
    #32167877
Лекс
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лекс
Гость
Есть Label на форме. Их 21 штука. Есть цикл. Каждый Label имеет Name - Label1, Label2, Label3,...Как мне в цикле перебирать их номера???
...
Рейтинг: 0 / 0
24.05.2003, 14:32
| Ответить | Цитировать | Написать  
Номер компонента в цикле
    #32167887
Gold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gold
Участник
Код: plaintext
1.
2.
3.
for i:= 0  to ComponentCount- 1  do
  if Components[i] is TLabel then
    with TLabel(Components[i]) do
    ...

Или я чего-то не понял ...
...
Рейтинг: 0 / 0
24.05.2003, 15:02
| Ответить | Цитировать | Написать  
Номер компонента в цикле
    #32167893
Лекс
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лекс
Гость
У меня есть анкета, там Фамилия, Имя, Отчество заполняются в клетках, каждая буква в одной клетке. Данные берутся из таблицы. Макет анкеты я сделал, теперь мне надо заполнить ФИО.
На фамилию, имя и отчество у меня по 21 клетка
Нумерация идёт так
Фамилия - с Label1 по Label21
Имя - с Label31 по Label51
Отчество - с Label61 по Label81
Label1.Caption:=Copy(fam,1,1);
Label2.Caption:=Copy(fam,2,1);...........
причём в Copy второй параметр будет иметь максимальное значение равное Length(fam) для фамилии, Length(im) для имени, Length(ot) для отчества
Как мне это сделать в цикле???
...
Рейтинг: 0 / 0
24.05.2003, 15:15
| Ответить | Цитировать | Написать  
Номер компонента в цикле
    #32167899
Gold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gold
Участник
Проще мыслить следует, я думаю. Поназначай им теги и смотри теги. Сделай так, чтоб все компоненты создавались по порядку. Тогда и в цикле, что я тебе написал, они тоже по порядку будут находится:
Код: plaintext
1.
2.
3.
4.
5.
for i:= 0  to ComponentCount- 1  do
  if Components[i] is TLabel then
    with TLabel(Components[i]) do
      case Tag of
         1 : Fam:=Fam+Caption[ 1 ];
         2 : Name:=...
...
Рейтинг: 0 / 0
24.05.2003, 15:31
| Ответить | Цитировать | Написать  
Номер компонента в цикле
    #32168005
Инна
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Инна
Участник
про Copy я не поняла. если правильно поняла про цикл, то:
когда у меня было несколько дбгридов и адодатасетов, которые надо вызывать в цикле, то я сделала массивы - дбгридов и адодатасетов и заполняла их при создании формы. а потом обращалась к ним в цикле через индекс массива.
...
Рейтинг: 0 / 0
25.05.2003, 01:00
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Номер компонента в цикле
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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