This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
tutorial:hotkey [2019/01/08 11:31] admin |
tutorial:hotkey [2019/01/28 10:22] (current) admin |
||
---|---|---|---|
Line 1: | Line 1: | ||
======Useful Hot-Keys====== | ======Useful Hot-Keys====== | ||
- | Hot-keys ที่สำคัญที่ผมจะแนะนำมีดังนี้ครับ | + | Hot-keys ที่สำคัญที่ผมจะแนะนำมีดังนี้ครับ \\ |
+ | |||
+ | ---- | ||
=====Ctrl + Shift + C===== | =====Ctrl + Shift + C===== | ||
Line 6: | Line 8: | ||
^ Steps ^ Source Editor ^ | ^ Steps ^ Source Editor ^ | ||
- | |1. สร้างโค๊ดในส่วนของ Declaration ให้เสร็จ \\ \\ (ตัวอย่างนี้ จะเป็นการสร้าง class ขึ้นมา โดยมี Method 2 ตัว คือ Procedure DoSomething กับ Function GetSomething)|<sxh delphi;> | + | |1. สร้างโค๊ดในส่วนของ Declaration ให้เสร็จ \\ \\ (ตัวอย่างนี้ จะเป็นการสร้าง class ขึ้นมา โดยมี Method 2 ตัว คือ Procedure DoSomething กับ Function GetSomething) \\ \\ เลื่อน text curser มาไว้ที่ตำแหน่งไหนก็แต่ขอให้อยู่ภายในบรรทัด ของส่วนประกาศของ TMyClass (สามารถวางได้ภายในบรรทัด 3-8 แต่ขอแนะนำให้วางแถวสุดท้าย ในบรรทัดที่ 8 หลัง end;)|<sxh delphi;highlight: [6-7]> |
PROGRAM Project1; | PROGRAM Project1; | ||
TYPE | TYPE | ||
Line 18: | Line 20: | ||
END. | END. | ||
</sxh> | | </sxh> | | ||
- | |2. เลื่อน text curser มาไว้ที่ตำแหน่งไหนก็แต่ขอให้อยู่ภายในบรรทัด ของส่วนประกาศของ TMyClass (แนะนำให้วางแถวสุดท้าย ในบรรทัดที่ 8 หลัง end;)\\ \\ จากนั้นกดปุ่ม Ctrl+Shift+C พร้อมกัน \\ \\ โค๊ดในส่วน method implementation ของ TMyclass จะถูกสร้างขึ้นมาทันที|<sxh delphi;> | + | |2. จากนั้นกดปุ่ม Ctrl+Shift+C พร้อมกัน \\ \\ โค๊ดในส่วน method implementation ของ TMyclass จะถูกสร้างขึ้นมาทันที|<sxh delphi;highlight: [15-18,20-23]> |
PROGRAM Project1; | PROGRAM Project1; | ||
TYPE | TYPE | ||
Line 52: | Line 54: | ||
<hidden> | <hidden> | ||
^ Steps ^ Source Editor ^ | ^ Steps ^ Source Editor ^ | ||
- | |1. สร้างโค๊ดในส่วนของ Declaration ให้เสร็จ \\ \\ (ตัวอย่างนี้ จะเป็นการสร้าง class ขึ้นมา โดยมี Method 2 ตัว คือ Procedure DoSomething กับ Function GetSomething)|<sxh delphi;> | + | |1. สร้างโค๊ดในส่วนของ Declaration ให้เสร็จ|<sxh delphi;highlight: [10-11]> |
- | PROGRAM Project1; | + | unit Unit1; |
- | TYPE | + | |
- | TMyClass = class(TPersistent) | + | {$mode objfpc}{$H+} |
- | FName:string; | + | |
- | FValue:integer; | + | interface |
- | procedure DoSomething; | + | |
- | function GetSomeThing:integer; | + | uses |
- | end; | + | Classes, SysUtils; |
- | BEGIN | + | |
- | END. | + | procedure DoSomething; |
+ | function GetSomething:integer; | ||
+ | |||
+ | implementation | ||
+ | |||
+ | end. | ||
</sxh> | | </sxh> | | ||
- | |2. เลื่อน text curser มาไว้ที่ตำแหน่งไหนก็แต่ขอให้อยู่ภายในบรรทัด ของส่วนประกาศของ TMyClass (แนะนำให้วางแถวสุดท้าย ในบรรทัดที่ 8 หลัง end;)\\ \\ จากนั้นกดปุ่ม Ctrl+Shift+C พร้อมกัน \\ \\ โค๊ดในส่วน method implementation ของ TMyclass จะถูกสร้างขึ้นมาทันที|<sxh delphi;> | + | |2. เลื่อน text curser มาไว้ที่ตำแหน่งไหนก็แต่ขอให้อยู่ภายในบรรทัดที่ Methods เหล่านั้นอยู่ จากนั้นกดปุ่ม Ctrl+Shift+C พร้อมกัน |<sxh delphi;highlight: [15-18,20-23]> |
- | PROGRAM Project1; | + | unit Unit1; |
- | TYPE | + | |
- | { TMyClass } | + | {$mode objfpc}{$H+} |
- | TMyClass = class(TPersistent) | + | interface |
- | FName:string; | + | |
- | FValue:integer; | + | |
- | procedure DoSomething; | + | |
- | function GetSomeThing:integer; | + | |
- | end; | + | |
- | { TMyClass } | + | uses |
+ | Classes, SysUtils; | ||
- | procedure TMyClass.DoSomething; | + | procedure DoSomething; |
+ | function GetSomething:integer; | ||
+ | |||
+ | implementation | ||
+ | |||
+ | procedure DoSomething; | ||
begin | begin | ||
end; | end; | ||
- | function TMyClass.GetSomeThing: integer; | + | function GetSomething: integer; |
begin | begin | ||
end; | end; | ||
- | BEGIN | + | end. |
- | END. | + | |
</sxh> | | </sxh> | | ||
+ | |||
</hidden> | </hidden> | ||
+ | |||
+ | __**หมายเหตุ**__ - สามารถใช้ได้กับ Getter/Setter ของ Property ที่อยู่ในรูปของ Procedure/Function ได้เช่นกัน |