En utilisant les macros de Delphi, il peut effectuer des tâches très simples.
La macro commence par Ctrl + Shift + R, se termine par Ctrl + Shift + R et joue avec Ctrl + Shift + P.
Après avoir commencé à enregistrer la macro, vous pouvez voir les mots «enregistrement» dans la barre d'état.
Ce qui suit est un exemple d'attribution
Comme suit, il y a beaucoup de variables dans notre classe
DNO: String [20];
dworker: string [4];
ddate: tdatetime;
DTRADE_S: String [10];
DTRADE_E: String [10];
dmoney_sale: réel;
dmoney_last: réel;
dmoney_ss: réel;
DMAN: String [2];
dmoney_sk: réel;
dmoney_zl: réel;
Money_Mode: réel;
TICKET_MODE: REAL;
CZK_MODE: REAL;
MZK_MODE: REAL;
Bank_Mode: réel; // Montant de paiement de la carte bancaire
DCARD_ZK: String [20];
dcard_hl: chaîne [20];
dsubshop: String [4];
DSALESMAN: String [4];
Nous voulons attribuer sa valeur à la valeur correspondante d'un objet ASORCE dans Assign, comme suit.
Par exemple:
Procédure TmasterData.AssignValue (Asource: TmasterData);
Commencer
// Je veux obtenir les résultats suivants
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;
Que devons-nous faire?
Procédure TmasterData.AssignValue (Asource: TmasterData);
Commencer
DNO: String [20];
dworker: string [4];
ddate: tdatetime;
DTRADE_S: String [10];
DTRADE_E: String [10];
dmoney_sale: réel;
dmoney_last: réel;
....
À l'heure actuelle, nous nous concentrons d'abord sur le début de la ligne DNO, appuyez sur Ctrl + Shift + R pour commencer l'enregistrement, puis appuyez sur Ctrl + -> Arrow, le curseur se déplacera vers la réception du mot DNO, puis appuyez sur Ctrl + Shift + ->, DNO sera sélectionné: dans cette section, que dois-je faire s'il y a deux caractères supplémentaires? -> Arrow puis appuyez sur <-Arrow Retour à: Avant, puis entrez: = Asource. Le second: Avant, nous effacons les caractères suivants, appuyez sur Shift + End, puis appuyez sur la touche de suppression, afin que la première colonne soit terminée. , puis appuyez sur le bouton d'accueil.
Ceci est toutes nos clés.
Si nous connaissons très bien les macros de Delphi, alors nous pouvons faire beaucoup de choses merveilleuses, comme nous l'avons souvent fait dans MSSQL
Mettez à jour un ensemble dnum = b.dnum peut être complètement accompli à l'aide de macros Delphi.
Points clés de l'enregistrement des macros,
1 Assurez-vous de faire attention aux règles d'écriture soignées
2 Utilisez Ctrl + Shift + -> flèches pour sélectionner les mots
3 Toutes les opérations doivent être terminées à l'aide d'un clavier.
dno: = asource.dno