Как каждому объекту класса из списка назначить свою процедуру?

@lenusscik · Регистрация: 03.11.2019

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

как каждому объекту класса в списке назначить свою процедуру при заполнении списка объектами, со свойствами я разобрался, а вот с методами не допер пока.
Допустим вот кусок кода. как для каждого элемента списка определить свою функцию(где прописать, что для такого то элемента списка такая вот процедура), допустим есть процедуры MOV A,A, MOV A,B, ну и так далее.

Delphi
1
2
3
4
5
6
7
8
procedure ListOfComand;
var List: TObjectList;
    i: Integer;
begin
  List := TObjectList.Create;
  List.Add(TComand.Create('MOV A,A', '7F', 1));
  List.Add(TComand.Create('MOV A,B', '78', 1));
  List.Add(TComand.Create('MOV A,C', '79', 1));

@AzAtom · 26.12.2019, 14:01

При запуске программы сначала срабатывает код во всех initialization всех модулей в порядке подключения, затем запускается основная часть программы. После завершения основной части программы срабатывает код в finalization всех подключённых модулей в обратном порядке и уже потом программа полностью завершается.

Добавлено через 1 минуту

Сообщение от lenusscik

Я опять что то не так делаю:

Не так, конечно. Это у тебя определения класса TRegister, они должны быть до initialization.

@lenusscik · 26.12.2019, 14:07 **[ТС]**

Значит, мне в initialization надо будет просто вызвать эти процедуры(две первые),а очистку в finalization?

@lenusscik · 26.12.2019, 21:59 **[ТС]**

Почему снова вылезает ошибка? this form of method call only allowed for class methods or constructor
Жалуется на initialization и finilization

@lenusscik · 26.12.2019, 22:53 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
type
TMyType = (MOV_A_A, MOV_A_B, MOV_A_C .......  HLT1);
var Command: array[TMyType] of TCommand;
 
 
procedure CreateCommand;
var i: TMyType;
begin
  for i := Low(TMyType) to High(TMyType) do
    Command[i] := TCommand.Create;
end;

Можно ли также в цикле заполнить поля, если у всех команд значения некоторых полей одинаковые?

@northener · 27.12.2019, 01:54

Сообщение от lenusscik

Почему снова вылезает ошибка? this form of method call only allowed for class methods or constructor

А что вы сделали чтобы этой ошибки не было?
Что вы пытались сделать в этих строчках кода:

Delphi
1
2
3
4
5
initialization
Tregister.CreateReg;
TRegister.AddReg;
TFlag.CreateFlag;
TFlag.AddFlag;

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@lenusscik 0 / 0 / 0 Регистрация: 03.11.2019 Сообщений: 77
	26.12.2019, 14:07 [ТС]
	Значит, мне в initialization надо будет просто вызвать эти процедуры(две первые),а очистку в finalization? 0