Spesifikasi formulir pembuatan kode Delphi Tujuan dari spesifikasi ini: untuk memberikan kode Anda tampilan yang terpadu dan standar, ditingkatkan
Keterbacaan, pemahaman, pemeliharaan
Prinsip spesifikasi ini: Nama mencerminkan makna, bentuk mencerminkan struktur
1. Gaya satuan
2. Gaya masing-masing distrik
3. Gaya pernyataan
4. Aturan penamaan
Referensi: Panduan gaya Object Pascal resmi Borland
Panduan Pemrogram Delphi5 untuk Standar Pengkodean
{ }
{nama proyek}
{ }
{Hak Cipta (C) 2000,2001 Nama Perusahaan}
{ }
{****************************************************** ***** ******}
satuan Nama Unit;
{****************************************************** ***** ******
proyek:
Modul:
menggambarkan:
Versi:
tanggal:
pengarang:
memperbarui:
YANG HARUS DILAKUKAN:
******************************************************* * *****}
antarmuka
kegunaan
----,----,----,----,----,----,----,----,----,----, ----,
----,----, ----,----,----,----;
konstanta
------------------------------;
------------------------------;
------------------------------;
jenis
------------------------------;
------------------------------;
------------------------------;
------------------------------;
------------------------------;
------------------------------;
var
------------------------------;
------------------------------;
------------------------------;
pelaksanaan
kegunaan
----,----,----,----;
{$R *.RES}
{$R *.DFM}
--------------------------------;
--------------------------------;
--------------------------------;
--------------------------------;
--------------------------------;
--------------------------------;
--------------------------------;
--------------------------------;
--------------------------------;
--------------------------------;
--------------------------------;
--------------------------------;
akhir.kembali
Komentar topik, deskripsi tujuan prosedur fungsi, komentar pernyataan
Baris kosong: Blok hak cipta, antar kelas, antar metode -- (dua baris) Blok internal metode (satu baris)
Ruang: digunakan untuk meningkatkan kejelasan
Indentasi: dua spasi
----- = ----;
----- = ----;
----- = ----;
----- = ----;Ekstensi
Awalan: sedikitnya C_---; sebanyak satu awalan per topik
Konstan
{ Topik 1 }
C_--- = ----;
C_--- = ----;
C_--- = ----;
C_--- = ----;
{ Topik 2 }
----- = ----;
----- = ----;
----- = ----;
----- = ----; String sumber daya, ditempatkan setelah area variabel
string sumber daya
konstanta
S_--- = '----';
S_--- = '----';
S_--- = '----';
Contoh: CM_BASE = $B000;
CM_ACTIVATE = CM_BASE + 0;
CM_DEACTIVATE = CM_BASE + 1;
CM_GOTFOKUS = CM_BASE + 2;
CM_LOSTFOCUS = CM_BASE + 3;
NumPaletteEntri = 20;
BoxPoints : array[0..5, 0..2] dari GLfloat =
((-1, 0, 0),
(0, 1, 0),
(1, 0, 0),
(0, -1, 0),
(0, 0, 1),
(0, 0, -1) );
{ Kode tipe varian (wtypes.h) }
varKosong = $0000; { vt_kosong }
varNull = $0001; { vt_null }
varSmallint = $0002; { vt_i2 }
GIFVersion : array[gv87a..gv89a] dari TGIFVersionRec = ('87a', '89a');
T---- = ---------
Tipe objek-->Entitas yang stateful dan menyediakan layanan
T---- = kelas(----)
Pribadi
--------
--------
terlindung
--------
--------
publik
--------
--------
diterbitkan
--------
--------
akhir; Urutkan menurut abjad Pribadi
1. Semua data ditempatkan di area Pribadi, dimulai dengan F
2. Penunjuk metode yang sesuai dengan semua atribut acara ditempatkan di area Pribadi, dimulai dengan F.
3. Atribut metode Dapatkan dan Set ditempatkan di area Pribadi --> tidak siap untuk diwariskan.
4. Metode untuk merespons pesan ditempatkan di area Pribadi.
terlindung
1. Metode dan atribut yang dipanggil oleh subkelas tetapi tidak dapat dipanggil oleh dunia luar
2. Metode subkelas untuk membebani virtual;
publik
1. Bangun metode destruktor
2. Metode panggilan eksternal
3. Atribut untuk panggilan eksternal
diterbitkan
1. Properti yang muncul di Object Inspector untuk penggunaan desain
2. Contoh respon event yang muncul di Object Inspector untuk waktu desain: TGIFVersion = (gvUnknown, gv87a, gv89a);
TGIFVersionRec = array[0..2] dari char;
PInterfaceTable = ^TInterfaceTable;
TInterfaceTable = catatan yang dikemas
Jumlah Masuk: Integer;
Entri: array[0..9999] dari TInterfaceEntry;
{ deklarasi forWord }
Gambar TGIFI = kelas;
TGIFSubImage = kelas;
{--------------------------
TGIFItem
--------------------------}
TGIFItem = kelas(TPersisten)
pribadi
Gambar FGIFI: Gambar TGIFI;
.............
akhir;
Berhati-hatilah untuk tidak memiliki variabel objek kelas default, deklarasikan variabel tersebut di pemanggil!
var
-----------: -------;
-----------: -------;
contoh:
GIFDelayExp: integer = 10; { Pengganda penundaan dalam mS.}
GIFDelayExp: bilangan bulat = 12;
tema
--------------------------------------------------- --------}
{Tujuan metode}
prosedur -------------
mulai
--------;
--------;
akhir;
{Tujuan metode}
fungsi-----------------------------
mulai
--------;
--------;
akhir;
Pengembalian format