======Useful Hot-Keys====== Hot-keys ที่สำคัญที่ผมจะแนะนำมีดังนี้ครับ \\ ---- =====Ctrl + Shift + C===== Hot-key ตัวนี้จะใช้ระหว่างการเขียนโค๊ดใน Source Editor โดยเมื่อกดสามปุ่มดังนี้แล้ว จะเป็นการสร้าง implementation ของ Procedure/Function อย่างรวดเร็ว ไม่ต้องเสียเวลามาพิมพ์โค๊ดในส่วนนี้เอง วิธีใช้สรุปได้ตามนี้ ^ Steps ^ Source Editor ^ |1. สร้างโค๊ดในส่วนของ Declaration ให้เสร็จ \\ \\ (ตัวอย่างนี้ จะเป็นการสร้าง class ขึ้นมา โดยมี Method 2 ตัว คือ Procedure DoSomething กับ Function GetSomething) \\ \\ เลื่อน text curser มาไว้ที่ตำแหน่งไหนก็แต่ขอให้อยู่ภายในบรรทัด ของส่วนประกาศของ TMyClass (สามารถวางได้ภายในบรรทัด 3-8 แต่ขอแนะนำให้วางแถวสุดท้าย ในบรรทัดที่ 8 หลัง end;)| PROGRAM Project1; TYPE TMyClass = class(TPersistent) FName:string; FValue:integer; procedure DoSomething; function GetSomeThing:integer; end; BEGIN END. | |2. จากนั้นกดปุ่ม Ctrl+Shift+C พร้อมกัน \\ \\ โค๊ดในส่วน method implementation ของ TMyclass จะถูกสร้างขึ้นมาทันที| PROGRAM Project1; TYPE { TMyClass } TMyClass = class(TPersistent) FName:string; FValue:integer; procedure DoSomething; function GetSomeThing:integer; end; { TMyClass } procedure TMyClass.DoSomething; begin end; function TMyClass.GetSomeThing: integer; begin end; BEGIN END. | \\ นอกจากการใช้ Ctrl+SHift+C กับ Class/Object Methods แล้ว ยังสามารถใช้กับ Procedure/Function ทั่วไป ใน Unit ได้เช่นกัน ดังตัวอย่างต่อไปนี้ ^ Steps ^ Source Editor ^ |1. สร้างโค๊ดในส่วนของ Declaration ให้เสร็จ| unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils; procedure DoSomething; function GetSomething:integer; implementation end. | |2. เลื่อน text curser มาไว้ที่ตำแหน่งไหนก็แต่ขอให้อยู่ภายในบรรทัดที่ Methods เหล่านั้นอยู่ จากนั้นกดปุ่ม Ctrl+Shift+C พร้อมกัน | unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils; procedure DoSomething; function GetSomething:integer; implementation procedure DoSomething; begin end; function GetSomething: integer; begin end; end. | __**หมายเหตุ**__ - สามารถใช้ได้กับ Getter/Setter ของ Property ที่อยู่ในรูปของ Procedure/Function ได้เช่นกัน