ข้อมูลจำเพาะแบบฟอร์มการสร้างโค้ด Delphi วัตถุประสงค์ของข้อกำหนดนี้: เพื่อให้โค้ดของคุณมีรูปลักษณ์ที่เป็นหนึ่งเดียวและเป็นมาตรฐาน ปรับปรุง

ความสามารถในการอ่าน ความเข้าใจ การบำรุงรักษา

หลักการของข้อกำหนดนี้: ชื่อสะท้อนความหมาย รูปแบบสะท้อนโครงสร้าง

1. สไตล์ยูนิต

2.สไตล์ของแต่ละอำเภอ

3. สไตล์คำแถลง

4. กฎการตั้งชื่อ

อ้างอิง: คู่มือสไตล์ Object Pascal อย่างเป็นทางการของ Borland

คู่มือโปรแกรมเมอร์ Delphi5 เกี่ยวกับมาตรฐานการเข้ารหัส

1. สไตล์ยูนิต

-

{ชื่อโครงการ}

-

{ลิขสิทธิ์ (C) 2000,2001 ชื่อบริษัท}

-

{************************************************ * *****}

หน่วย ชื่อหน่วย;

{************************************************ * ***

โครงการ:

โมดูล:

อธิบาย:

เวอร์ชัน:

วันที่:

ผู้เขียน:

ต่ออายุ:

สิ่งที่ต้องทำ:

************************************************** * *****}

อินเตอร์เฟซ

การใช้งาน

----,----,----,----,----,----,----,----,----,----, ----,

-

ค่าคงที่

-

-

-

พิมพ์

-

-

-

-

-

-

var

-

-

-

การดำเนินการ

การใช้งาน

-

{$อาร์ *.เรส}

{$R *.DFM}

-

-

-

-

-

-

-

-

-

-

-

-

สิ้นสุดกลับมา

2.สไตล์ของแต่ละอำเภอ

0. ความคิดเห็นและช่องว่าง

ข้อคิดเห็นของหัวข้อ คำอธิบายวัตถุประสงค์ของขั้นตอนการทำงาน ข้อคิดเห็นของคำสั่ง

บรรทัดว่าง: บล็อกลิขสิทธิ์ ระหว่างคลาส ระหว่างวิธีการ -- (สองบรรทัด) บล็อกภายในของวิธีการ (หนึ่งบรรทัด)

Space: ใช้เพื่อเพิ่มความชัดเจน

เยื้อง: สองช่องว่าง

1. พื้นที่คงที่

-

-

-

----- = ----;ส่วนขยาย

คำนำหน้า: น้อยที่สุดเท่ากับ 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');

2. พิมพ์พื้นที่

ต---- = ---------

ประเภทออบเจ็กต์-->เอนทิตีที่มีสถานะและให้บริการ

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;

-

จบ;

3. พื้นที่แปรผัน

ระวังอย่าให้มีตัวแปรคลาสอ็อบเจ็กต์เริ่มต้น ประกาศไว้ในผู้เรียก!

var

-

-

ตัวอย่าง:

GIFDelayExp: จำนวนเต็ม = 10; { ตัวคูณความล่าช้าในหน่วย mS.}

GIFDelayExp: จำนวนเต็ม = 12;

4. พื้นที่การดำเนินงาน

ธีม

-------------------------------------------------- -------------------------------------------------- --------}

{วัตถุประสงค์ของวิธีการ}

ขั้นตอน ----------------------------

เริ่ม

-

-

จบ;

{วัตถุประสงค์ของวิธีการ}

การทำงาน--------------------------------

เริ่ม

-

-

จบ;

5. กระบวนการและฟังก์ชัน

ส่งคืนรูปแบบ