Обращение к объекту не по индексу, а по имени

@artyoms · Регистрация: 28.10.2012

Студворк — интернет-сервис помощи студентам

Не знаю как словами описать, лучше пример приведу:

Delphi
1
2
3
4
5
6
7
8
9
10
  type
 
    TButtons = class
     Name:string;
     List:TList<TSpeedButton>;
     constructor New(NewName:string);
    end;
 
 var
   PF_Buttons:TList<TButtons>;

Смысл в том, что мы создаём класс, добавляем его в Лист PF_Buttons, в каждом классе есть список динамически созданных кнопок в "List:TList<TSpeedButton>;"

Далее идёт обращение, допустим:

Delphi
1
PF_Buttons[0].List[0].Down:=true;

Соответственно хочется обращаться не по индексу PF_Buttons[индекс], а как то по имени, т.к. индексов будет дофига, и код становится не читаемым. на много лучше, если бы было PF_Buttons[имя]. Думаю тут ничего не сделать, но может я чего то не знаю)

@mss · 30.12.2015, 14:02

ButtonList.Add('blabla', TList<TSpeedButton>.Creale); // вот один именованый список
ButtonList.Add('fooo', TList<TSpeedButton>.Creale); // вот другой

Как их можно перепутать ?

@artyoms · 30.12.2015, 17:21 **[ТС]**

Всё получилось, сделал так (сразу добавил новую запись в словарь с пустым списком, и затем в него добавлял кнопки)

Delphi
1
ButtonList.Add('Position',TList<TSpeedButton>.Create);

а до этого я отдельно создавал список кнопок, и потом пробовал его добавить в словарь

Delphi
1
2
3
4
5
var But:TList<TSpeedButton>;
But:=TList<TSpeedButton>.Create;
But.Add(TSpeedButton.Create(Form2));
....
ButtonList.Add('Window',But);

Добавлено через 3 часа 8 минут
Обновил код в проекте, намного лучше стало, удобно ориентироваться и нету кучи отдельных списков.

Новые блоги и статьи Все статьи Все блоги /
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	30.12.2015, 14:02
	ButtonList.Add('blabla', TList<TSpeedButton>.Creale); // вот один именованый список ButtonList.Add('fooo', TList<TSpeedButton>.Creale); // вот другой Как их можно перепутать ? 1