Menggunakan Delphi Macro dapat melakukan beberapa tugas yang sangat sederhana.
Makro dimulai dengan ctrl + shift + r, diakhiri dengan ctrl + shift + r, dan bermain dengan ctrl + shift + p.
Setelah Anda mulai merekam makro, Anda dapat melihat kata -kata 'perekaman' di bilah status.
Berikut ini adalah contoh penugasan
Sebagai berikut, ada banyak variabel di kelas kami
DNO: String [20];
DWorker: String [4];
ddate: tDateTime;
dtrade_s: string [10];
dtrade_e: string [10];
dmoney_sale: nyata;
dmoney_last: nyata;
dmoney_ss: nyata;
DMAN: String [2]; // Lantai Tamu
DMONEY_SK: NYATA;
dmoney_zl: nyata; // temukan perubahan
Money_mode: Jumlah Pembayaran Tunai
Ticket_mode: nyata; // jumlah pembayaran voucher belanja
CZK_MODE: NYATA; // Jumlah Pembayaran Kartu Nilai Membayar
MZK_MODE: NYATA;
Bank_mode: Nyata; // Jumlah Pembayaran Kartu Bank
DCARD_ZK: String [20]; // Nomor Kartu Diskon
DCARD_HL: String [20]; // Nomor Hongli Kaka
dsubshop: string [4];
Dsalesman: String [4];
Kami ingin menetapkan nilainya ke nilai yang sesuai dari objek asource dalam penugasan, sebagai berikut.
Misalnya:
Prosedur tmasterdata.assignValue (asource: tmasterdata);
Mulai
// Saya ingin mendapatkan hasil berikut
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;
Apa yang harus kita lakukan?
Prosedur tmasterdata.assignValue (asource: tmasterdata);
Mulai
DNO: String [20];
DWorker: String [4];
ddate: tDateTime;
dtrade_s: string [10];
dtrade_e: string [10];
dmoney_sale: nyata;
dmoney_last: nyata;
...
Pada saat ini, pertama -tama kami fokus pada awal garis DNO, tekan Ctrl + Shift + R untuk mulai merekam, lalu tekan Ctrl + -> panah, kursor akan pindah ke meja depan kata DNO, dan kemudian tekan Ctrl + Shift + ->, DNO akan dipilih: di bagian ini, apa yang harus saya lakukan jika ada dua karakter tambahan? -> Panah dan kemudian tekan <-arrow kembali ke: Sebelumnya, dan kemudian masukkan: = asource. Yang kedua: Sebelumnya, kami menghapus karakter berikut, tekan Shift + End, dan kemudian tekan tombol Hapus, sehingga kolom pertama selesai. , lalu tekan tombol beranda.
Ini semua kunci kami.
Jika kita sangat akrab dengan makro Delphi, maka kita dapat melakukan banyak hal indah, seperti yang sering kita miliki di MSSQL
Perbarui set dnum = b.dnum dapat sepenuhnya dicapai menggunakan Macro Delphi.
Poin -poin penting dari rekaman makro,
1 Pastikan untuk memperhatikan aturan kode penulisan yang rapi
2 Gunakan Ctrl + Shift + -> panah untuk memilih kata -kata
3 Semua operasi harus diselesaikan menggunakan keyboard
dno: = asource.dno