Использование Delphi Macros может выполнять некоторые очень простые задачи.
Макро начинается с Ctrl + Shift + R, заканчивается Ctrl + Shift + R и играет с Ctrl + Shift + P.
После того, как вы начнете записывать макрос, вы можете увидеть слова «запись» в строке состояния.
Ниже приведен пример назначения
Следующим образом, в нашем классе много переменных
DNO: String [20];
Dworker: String [4];
ddate: tdatetime;
dtrade_s: string [10];
dtrade_e: String [10];
dmoney_sale: Real;
dmoney_last: Real;
dmoney_ss: Real;
Dman: String [2];
dmoney_sk: Real;
dmoney_zl: Real;
Money_mode: Real;
Ticket_mode: Real;
CZK_MODE: Real;
Mzk_mode: Real;
Bank_mode: Real;
dcard_zk: String [20];
dcard_hl: string [20];
dsubshop: String [4];
Dsalesman: String [4];
Мы хотим присвоить его значение соответствующему значению объекта Asource в назначении следующим образом.
Например:
Процедура tmasterdata.assignvalue (Asource: tmasterdata);
Начинать
// Я хочу получить следующие результаты
dno: = asource.dno;
dworker: = asource.dworker;
ddate: = asource.ddate;
dtrade_s: = asource.dtrade_s;
dtrade_e: = asource.dtrade_e;
dmoney_sale: = asource.dmoney_sale;
dmoney_last: = asource.dmoney_last;
Что мы должны сделать?
Процедура tmasterdata.assignvalue (Asource: tmasterdata);
Начинать
DNO: String [20];
Dworker: String [4];
ddate: tdatetime;
dtrade_s: string [10];
dtrade_e: String [10];
dmoney_sale: Real;
dmoney_last: Real;
....
В настоящее время мы сначала сосредотачиваемся на начале линии DNO, нажмите CTRL + SHIFT + R, чтобы начать запись, затем нажмите CTRL + -> Стрелку, курсор перейдет к стойке регистрации слова DNO, а затем нажмите CTRL + Shift + ->, DNO будет выбран: в этом разделе я должен сделать два дополнительных символа? -> Стрелка, а затем нажмите <-Arrow, возвращается к: до, а затем введите: = Asource. Второе: до того, как мы очищаем следующие символы, нажмите Shift + End, а затем нажимаем клавишу Delete, чтобы завершить первый столбец. , а затем нажмите кнопку «Домой».
Это все наши ключи.
Если мы очень хорошо знакомы с макросами Delphi, то мы можем сделать много замечательных вещей, например, мы часто имеем в MSSQL
Обновление установленного dnum = b.dnum может быть полностью выполнено с использованием макросов Delphi.
Ключевые моменты записи макросов,
1 Обязательно обратите внимание на аккуратные правила написания кода
2 Используйте Ctrl + Shift + -> Стрелки, чтобы выбрать слова
3 Все операции должны быть завершены с помощью клавиатуры
dno: = asource.dno