Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Март 2011   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Delphi и Lazarus


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты данной рассылки

Орловский Дмитрий
Статус: Академик
Рейтинг: 4324
∙ повысить рейтинг » 		Boriss
Статус: Академик
Рейтинг: 2648
∙ повысить рейтинг » 		cradlea
Статус: Практикант
Рейтинг: 1439
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Delphi и Lazarus

Номер выпуска:1588
Дата выхода:30.03.2011, 11:00
Администратор рассылки:Киселёва Алёна aka Verena (Профессор)
Подписчиков / экспертов:256 / 184
Вопросов / ответов:1 / 2

Вопрос № 182618: Добрый день, уважаемые эксперты! Буде добры и подскажите мне как работать с TComponentList... я так понимаю - это массив указателей на компонентs. Как узнать имя компонента находящегося в данном массиве (к примеру Button1), как узнать есть ли компоне...

Вопрос № 182618:

Добрый день, уважаемые эксперты! Буде добры и подскажите мне как работать с TComponentList... я так понимаю - это массив указателей на компонентs. Как узнать имя компонента находящегося в данном массиве (к примеру Button1), как узнать есть ли компонент в массиве а если есть то узнать его индекс.. Заранее благодарю..

Отправлен: 25.03.2011, 08:11
Вопрос задал: Посетитель - 367345 (Посетитель)
Всего ответов: 2
Страница вопроса »

Отвечает 6a3uJI (8-й класс) :
Здравствуйте, Посетитель - 367345!
Для доступа к элементу списка TComponentList предложу следующий способ:

Код:

var
  Comp1,Comp2,Comp3: TComponent;
  List: TComponentList;
begin
//создаем
объект класса TComponentList
 List := TComponentList.Create;

//заносим в список необходимые компоненты (3 кнопки)
 List.Add(Button1);
 List.Add(Button2);
 List.Add(Button3);

//получаем необходимый компонент по индексу
 Comp1 := List.Items[0] as TComponent;
 Comp2 := List.Items[1] as TComponent;

//выводим сообщение о свойствах компонента
 ShowMessage ('List[0]: ' + Format (
          &
 #39;%s (%s): %s (%s)',
          [Comp1.Name, Comp1.ClassName,
          Comp1.Owner.Name, Comp1.Owner.ClassName]));
 ShowMessage ('List[1]: ' +Format (
          '%s (%s): %s (%s)',
          [Comp2.Name, Comp2.ClassName,
          Comp2.Owner.Name, Comp2.Owner.ClassName]));

//находим индекс компонента Button3 в списке List и используя полученный индекс выводим свойства компонента
 Comp3:=List.Items[List.IndexOf(Button3)] as TComponent;

ShowMessage ('Button3:  ' +Format (
          '%s (%s): %s (%s)',
          [Comp3.Name, Comp3.ClassName,
          Comp3.Owner.Name, Comp3.Owner.ClassName]));


Безусловно, доступ к компонентам в списке (по индексу) можно организовать с помощью цикла и обращаться можно ко всем доступным свойствам полученного компонента.

Успехов!

Ответ отправил: 6a3uJI (8-й класс)
Ответ отправлен: 25.03.2011, 10:22
Номер ответа: 266394
Беларусь, Могилёвская обл.
ICQ # 428577974

Оценка ответа: 5
Комментарий к оценке:
тот пример который вы мне приводите я уже видел.. http://www.kansoftware.ru/?tid=1763 . меня в данном вопросе интересует следующее: обязательно ли передавать Comp1 := List.Items[0] as TComponent; а потом уже работать с Comp1? или можно делать так (List.Items[0] as TComponent).Name - можно ли таким образом узнать имя компонента?

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 266394 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Отвечает sir Henry (Старший модератор) :
    Здравствуйте, Посетитель - 367345!

    Действительно, TComponentList является списком, аналогом динамического массива, в котором могут хранится объекты класса TComponent или наследники этого класса. Для примера, все визуальные компоненты (типа TButton, TCheckBox и т. п.) являются наследниками TСomponent.
    В каких случаях можно использовать этот компонент? Представим такую ситуацию: Вы создали некую форму с кнопками (TButton), причём количество кнопок у Вас зависит от неких внешних факторов и может от случая к случаю быть разным. Как поступить? Если мы знаем, какое количество кнопок у нас должно быть максимум, то можно в процессе разработки формы поместить весь этот максимум кнопок на форму и лишние просто делать невидимыми. А если мы этот максимум не знаем? Тогда придётся заводить динамический массив и в процессе работы программы переопределять его размер и в ячейки массива заносить кнопки. Неудобно? Вне всякого сомнения. Много лишних действий. Компонент TCompo nentList как раз от таких лишних действий нас избавляет, предоставляя удобные формы добавления, удаления и просмотра компонентов.
    Добавление компонентов осуществляется с помощью метода Add():
    Код:
    Var
      cl: TComponentList;
      ...

    Begin
    ...
      For i:=0 To КоличествоКомпонентов-1 Do
      Begin
        cl.Add(TButton.Create(Form1));
        cl[cl.Count-1].Owner:=Form1;
        TButton(cl[cl.Count-1]).Top:=...;
        TButton(cl[cl.Count-1].Left):=...;
        ...
      End;
    End;

    Как можно обращиться к определённому компоненту? Точно так же, как к элементу массива - по его индексу.
    TButton(cl[ИндексКомпонента]).Свойст во:=...;
    При этом упрощается поиск значения в одном из компонентов:
    Код:
    For i:=0 To cl.Count-1 Do
      If Pos('ИскомоеЗначение', TButton(cl[i]).Caption)>0 Then
        //Компонент, содержащий искомое
значение, найден
      Else
        //Компонент не найден;

    Как удалить компонент из списка? С помощью метода Remove():
    Код:
    cl.Remove(cl[i]);
    < br />где i - это индекс компонента найденый, например, с помощью предыдущего метода. При этом, если свойство ComponentList.OwnsObjects = True, то компонент удаляется не только из списка, но и из памяти и больше не существует.
    Кроме Remove(), усть ещё и метод Extract():
    Код:
    cl.Extract(cl[i]);

    При этом компонент просто удаляется из списка, но остаётся в памяти. Учтите, если компонент создавался с помощью метода из примера 1 и не имеет собственного имени, то доступ к нему теряется и он просто занимает память, но делать с ним ничего уже нельзя. Поэтому будьте внимательны.
    Кроме обращения к конкретному компоненту по его индексу, можно непосредственно взять пер вый или последний компонент списка с помощью методов First или Last.
    Если у каждого компонента в списке есть собственное имя, то его индекс можно узнать с помощью метода IndexOf(ИмяКомпонента).
    Удаляется список из памяти с помощью стандартного метода Free(). При этом, если свойство ComponentList.OwnsObjects = True, то из памяти также удаляются и все содержащиеся в списке компоненты.
    -----
    Я только в одном глубоко убеждён - не надо иметь убеждений! :)

    Ответ отправил: sir Henry (Старший модератор)
    Ответ отправлен: 25.03.2011, 10:56
    Номер ответа: 266396
    Россия, Красноярск

    Оценка ответа: 5
    Комментарий к оценке:
    благодарю Вас, sir Henry, за исчерпывающий ответ... Вы как всегда как всегда достаточно полно излагаете суть проблемы.. (и у меня закрадываются смутные сомнения что вы работаете преподавателем -D). но меня ещё интересует вот что: чем отличается TButton(cl[i]) от (cl[i] as TButton)? И ещё из первого ответа: если я сделаю так Comp1 := List.Items[0] as TComponent то я получается работаю непосредственно с компонентом который находиться в List.Items[0] и с его свойствами и методами через Comp1? или мне все таки придется заново перезаписывать в List.Items[0] компонент Comp1?

    Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 266396 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2011, Портал RFPRO.RU, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Калашников О.А. | Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2011.6.30 от 17.03.2011
    В избранное