Delphi Macrosを使用すると、非常に簡単なタスクを実行できます。
マクロはCtrl + Shift + Rで始まり、Ctrl + Shift + Rで終わり、Ctrl + Shift + Pで再生します
マクロの録音を開始した後、ステータスバーに「録音」という単語が表示されます。
以下は割り当ての例です
次のように、私たちのクラスには多くの変数があります
DNO：文字列[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; // Cash Collection
DMONEY_ZL：REAL;
Money_mode：Real; //現金支払い額
ticket_mode：real; //ショッピングバウチャーの支払い額
czk_mode：real; //有料の値カードの支払い額
MZK_MODE：REAL; //値カードの支払い額
bank_mode：real; //銀行カードの支払い額
DCARD_ZK：文字列[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：文字列[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を押します+シフト>、DNOが選択されます。2つの追加の文字がある場合は、DNOを2回押します - >矢印を押します<-ARROWは以前に戻り、次に入力します2番目：以前は、次の文字をクリアし、edsを押してから、削除キーを押して、最初の列が完了するようにします。 、次に、ホームボタンを押します。
これはすべて私たちのキーです。Ctrl + Shift + Rを押して録音を完了し、Ctrl + Shift + Pを押して再生します。
Delphiのマクロに非常に精通している場合、MSSQLによくあるように、たくさんの素晴らしいことをすることができます。
DNUM = b.dnumのセットを更新すると、Delphiマクロを使用して完全に達成できます。
マクロを記録する重要なポイント、
1書くコードのきちんとしたルールに必ず注意を払ってください
2 ctrl + shift + - >矢印を使用して単語を選択します
3キーボードを使用してすべての操作を完了する必要があります
dno：= asource.dno