Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.12.2010, 21:15   #1
Vaigard
Delphi and (not C)
Форумчанин
 
Аватар для Vaigard
 
Регистрация: 04.12.2010
Сообщений: 117
Радость Перебор элементов.

Можно ли как-нибудь избежать перебора элементов, типа label1, label2, button1, button2 и т. д.? Для некоторых программ проще использовать индексацию типа Button[i] или ButtonI. Но как работать с элементами таким образом?
<--Жми на весы
Vaigard вне форума Ответить с цитированием
Старый 30.12.2010, 22:04   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,527
По умолчанию

form1.components[j]
form2.controls[j]
это?
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Старый 30.12.2010, 22:21   #3
Vikenty
Заслуженный флудер
Участник клуба
 
Аватар для Vikenty
 
Регистрация: 31.03.2010
Сообщений: 1,473
По умолчанию

Создавать кнопки динамически
Vikenty вне форума Ответить с цитированием
Старый 31.12.2010, 16:40   #4
XeruH
Форумчанин
 
Регистрация: 17.09.2010
Сообщений: 229
По умолчанию

Есть такая функция
Цитата:
(FindComponent('Label1') as TLabel).Caption := 'Я Label1';
Правильно заданный вопрос - половина ответа!
XeruH вне форума Ответить с цитированием
Старый 31.12.2010, 16:53   #5
MyLastHit
Очень суровый
Участник клуба
 
Аватар для MyLastHit
 
Регистрация: 17.12.2009
Сообщений: 1,988
По умолчанию

Чуть чуть дополню:
Код:
var  i:integer;
begin
for i:=1 to 10 do
(FindComponent('Label'+inttostr(i)) as TLabel).Caption := 'Я Label'+inttostr(i); 
end;
А автору следовало бы всетаки, как сказал Vikenty, создавать элементы динамически.
глобально:
Код:
var labels:array[1..10] of Tlabel;
     i:integer;
В ОнКриэйт формы:
Код:
for i:=1 to 10 do
begin
  labels[i]:=Tlabel.create(self);
  with labels[i] do
  begin
    parent:=form1;
    width:=...
    height:=...
    top:=...
    left:=...
    caption:=...
    font.color:=...
    font.name:=...
    transparent:=...
    visible:=...
  end;
end;
Ненавижу быть как все, но люблю, чтобы все были как я.

Последний раз редактировалось MyLastHit; 31.12.2010 в 16:59.
MyLastHit вне форума Ответить с цитированием
Старый 31.12.2010, 17:53   #6
Vaigard
Delphi and (not C)
Форумчанин
 
Аватар для Vaigard
 
Регистрация: 04.12.2010
Сообщений: 117
По умолчанию

Попробуем) Спасибо за помощь)
<--Жми на весы
Vaigard вне форума Ответить с цитированием
Старый 31.12.2010, 18:24   #7
ArtGrek
DelphiProger
Участник клуба
 
Аватар для ArtGrek
 
Регистрация: 14.11.2010
Сообщений: 1,023
По умолчанию

http://programmersforum.ru/showthread.php?t=130792
пост 2 - создание динамически
пост 8 - работа с масивом компонент, но ет не перебор, сам съарентируися подходит ли тебе ето
VirusN13
ArtGrek вне форума Ответить с цитированием
Старый 02.01.2011, 16:57   #8
Vaigard
Delphi and (not C)
Форумчанин
 
Аватар для Vaigard
 
Регистрация: 04.12.2010
Сообщений: 117
По умолчанию

Да, здесь ясно показано создание динамически, а пост 8 ничего не дал.
<--Жми на весы
Vaigard вне форума Ответить с цитированием
Старый 03.01.2011, 08:13   #9
ArtGrek
DelphiProger
Участник клуба
 
Аватар для ArtGrek
 
Регистрация: 14.11.2010
Сообщений: 1,023
По умолчанию

Цитата:
Сообщение от Vaigard Посмотреть сообщение
а пост 8 ничего не дал.
покажи что зделал?
VirusN13
ArtGrek вне форума Ответить с цитированием
Старый 03.01.2011, 13:09   #10
Vaigard
Delphi and (not C)
Форумчанин
 
Аватар для Vaigard
 
Регистрация: 04.12.2010
Сообщений: 117
По умолчанию

Это не являлось проектом) Я сейчас вообще ничего материального не делаю)
<--Жми на весы
Vaigard вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перебор элементов (Pascal) PianeR Помощь студентам 2 18.12.2010 00:52
В массиве из п элементов много совпадающих элементов. Найти количество различных элементов Strax Фриланс 11 12.06.2010 20:13
Перебор элементов собственного класса (JavaScript) DaeMooN JavaScript, Ajax 3 24.01.2009 16:28
Перебор элементов матрицы pikkk Общие вопросы Delphi 3 09.05.2008 14:45
перебор всех элементов в TtreeView vitalik007 Общие вопросы Delphi 10 09.04.2008 15:44