ข้อมูลจำเพาะแบบฟอร์มการสร้างโค้ด Delphi วัตถุประสงค์ของข้อกำหนดนี้: เพื่อให้โค้ดของคุณมีรูปลักษณ์ที่เป็นหนึ่งเดียวและเป็นมาตรฐาน ปรับปรุง
ความสามารถในการอ่าน ความเข้าใจ การบำรุงรักษา
หลักการของข้อกำหนดนี้: ชื่อสะท้อนความหมาย รูปแบบสะท้อนโครงสร้าง
1. สไตล์ยูนิต
2.สไตล์ของแต่ละอำเภอ
3. สไตล์คำแถลง
4. กฎการตั้งชื่อ
อ้างอิง: คู่มือสไตล์ Object Pascal อย่างเป็นทางการของ Borland
คู่มือโปรแกรมเมอร์ Delphi5 เกี่ยวกับมาตรฐานการเข้ารหัส
-
{ชื่อโครงการ}
-
{ลิขสิทธิ์ (C) 2000,2001 ชื่อบริษัท}
-
{************************************************ * *****}
หน่วย ชื่อหน่วย;
{************************************************ * ***
โครงการ:
โมดูล:
อธิบาย:
เวอร์ชัน:
วันที่:
ผู้เขียน:
ต่ออายุ:
สิ่งที่ต้องทำ:
************************************************** * *****}
อินเตอร์เฟซ
การใช้งาน
----,----,----,----,----,----,----,----,----,----, ----,
-
ค่าคงที่
-
-
-
พิมพ์
-
-
-
-
-
-
var
-
-
-
การดำเนินการ
การใช้งาน
-
{$อาร์ *.เรส}
{$R *.DFM}
-
-
-
-
-
-
-
-
-
-
-
-
สิ้นสุดกลับมา
ข้อคิดเห็นของหัวข้อ คำอธิบายวัตถุประสงค์ของขั้นตอนการทำงาน ข้อคิดเห็นของคำสั่ง
บรรทัดว่าง: บล็อกลิขสิทธิ์ ระหว่างคลาส ระหว่างวิธีการ -- (สองบรรทัด) บล็อกภายในของวิธีการ (หนึ่งบรรทัด)
Space: ใช้เพื่อเพิ่มความชัดเจน
เยื้อง: สองช่องว่าง
-
-
-
----- = ----;ส่วนขยาย
คำนำหน้า: น้อยที่สุดเท่ากับ C_---;
คอนสตรัคชั่น
{ หัวข้อ 1 }
C_--- = ----;
C_--- = ----;
C_--- = ----;
C_--- = ----;
{ หัวข้อ 2 }
-
-
-
----- = ----; สตริงทรัพยากร วางไว้หลังพื้นที่ตัวแปร
ทรัพยากร
ค่าคงที่
S_--- = '----';
S_--- = '----';
S_--- = '----';
ตัวอย่าง: CM_BASE = $B000;
CM_ACTIVATE = CM_BASE + 0;
CM_DEACTIVATE = CM_BASE + 1;
CM_GOTFOCUS = CM_BASE + 2;
CM_LOSTFOCUS = CM_BASE + 3;
NumPaletteรายการ = 20;
BoxPoints : array[0..5, 0..2] ของ GLfloat =
((-1, 0, 0),
(0, 1, 0),
(1, 0, 0),
(0, -1, 0),
(0, 0, 1)
(0, 0, -1) );
{ รหัสประเภทตัวแปร (wtypes.h) }
varEmpty = $0,000; { vt_empty }
varNull = $0001; { vt_null }
varSmallint = $0002; { vt_i2 }
GIFVersions : array[gv87a..gv89a] ของ TGIFVersionRec = ('87a', '89a');
ต---- = ---------
ประเภทออบเจ็กต์-->เอนทิตีที่มีสถานะและให้บริการ
T ---- = คลาส (----)
ส่วนตัว
-
-
ได้รับการคุ้มครอง
-
-
สาธารณะ
-
-
ที่ตีพิมพ์
-
-
สิ้นสุด; เรียงลำดับตามตัวอักษรส่วนตัว
1. ข้อมูลทั้งหมดจะถูกวางไว้ในพื้นที่ส่วนตัว โดยเริ่มจาก F
2. ตัวชี้วิธีการที่สอดคล้องกับคุณลักษณะของเหตุการณ์ทั้งหมดจะถูกวางไว้ในพื้นที่ส่วนตัว โดยเริ่มต้นด้วย F
3. วิธีการ Get และ Set ของแอ็ตทริบิวต์ถูกวางไว้ในพื้นที่ส่วนตัว --> ไม่ได้เตรียมที่จะสืบทอด
4. วิธีการตอบกลับข้อความจะอยู่ในพื้นที่ส่วนตัว
ได้รับการคุ้มครอง
1. วิธีการและคุณลักษณะที่ถูกเรียกโดยคลาสย่อย แต่โลกภายนอกไม่สามารถเรียกได้
2. วิธีการสำหรับคลาสย่อยในการโอเวอร์โหลดเสมือน;
สาธารณะ
1. สร้างวิธีการทำลายล้าง
2. วิธีการโทรภายนอก
3. คุณสมบัติสำหรับการโทรภายนอก
ที่ตีพิมพ์
1. คุณสมบัติที่ปรากฏในตัวตรวจสอบวัตถุเพื่อใช้ในการออกแบบ
2. ตัวอย่างการตอบสนองเหตุการณ์ที่ปรากฏใน Object Inspector สำหรับเวลาออกแบบ: TGIFVersion = (gvUnknown, gv87a, gv89a);
TGIFVersionRec = array[0..2] ของถ่าน;
PInterfaceTable = ^TInterfaceTable;
TInterfaceTable = บันทึกที่อัดแน่น
รายการนับ: จำนวนเต็ม;
รายการ: อาร์เรย์ [0..9999] ของ TInterfaceEntry;
{ คำประกาศ forWord }
TGIFImage = คลาส;
TGIFSubImage = คลาส;
-
TGIFItem
-
TGIFItem = คลาส (TPersistent)
ส่วนตัว
FGIFImage: TGIFImage;
-
จบ;
ระวังอย่าให้มีตัวแปรคลาสอ็อบเจ็กต์เริ่มต้น ประกาศไว้ในผู้เรียก!
var
-
-
ตัวอย่าง:
GIFDelayExp: จำนวนเต็ม = 10; { ตัวคูณความล่าช้าในหน่วย mS.}
GIFDelayExp: จำนวนเต็ม = 12;
ธีม
-------------------------------------------------- -------------------------------------------------- --------}
{วัตถุประสงค์ของวิธีการ}
ขั้นตอน ----------------------------
เริ่ม
-
-
จบ;
{วัตถุประสงค์ของวิธีการ}
การทำงาน--------------------------------
เริ่ม
-
-
จบ;
ส่งคืนรูปแบบ