Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Номер компонента в цикле / 5 сообщений из 5, страница 1 из 1
24.05.2003, 14:32
    #32167877
Лекс
Лекс
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер компонента в цикле
Есть Label на форме. Их 21 штука. Есть цикл. Каждый Label имеет Name - Label1, Label2, Label3,...Как мне в цикле перебирать их номера???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.05.2003, 15:02
    #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:15
    #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:31
    #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
| Ответить | Цитировать | Написать  
25.05.2003, 01:00
    #32168005
Инна
Инна
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Номер компонента в цикле
про Copy я не поняла. если правильно поняла про цикл, то:
когда у меня было несколько дбгридов и адодатасетов, которые надо вызывать в цикле, то я сделала массивы - дбгридов и адодатасетов и заполняла их при создании формы. а потом обращалась к ним в цикле через индекс массива.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Номер компонента в цикле / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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