Pascal-Lazarus Tutorial

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
======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;)|<sxh delphi;highlight: [6-7]>
PROGRAM Project1;
TYPE
  TMyClass = class(TPersistent)
    FName:string;
    FValue:integer;
    procedure DoSomething;
    function GetSomeThing:integer;
  end;
BEGIN
END. 
</sxh> |
|2. จากนั้นกดปุ่ม Ctrl+Shift+C พร้อมกัน \\ \\ โค๊ดในส่วน method implementation ของ TMyclass จะถูกสร้างขึ้นมาทันที|<sxh delphi;highlight: [15-18,20-23]>
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.  
</sxh> |

\\
นอกจากการใช้ Ctrl+SHift+C กับ Class/Object Methods แล้ว ยังสามารถใช้กับ Procedure/Function ทั่วไป ใน Unit ได้เช่นกัน ดังตัวอย่างต่อไปนี้

<hidden>
^  Steps  ^  Source Editor  ^ 
|1. สร้างโค๊ดในส่วนของ Declaration ให้เสร็จ|<sxh delphi;highlight: [10-11]>
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

procedure DoSomething;
function GetSomething:integer;

implementation

end. 
</sxh> |
|2. เลื่อน text curser มาไว้ที่ตำแหน่งไหนก็แต่ขอให้อยู่ภายในบรรทัดที่ Methods เหล่านั้นอยู่ จากนั้นกดปุ่ม Ctrl+Shift+C พร้อมกัน |<sxh delphi;highlight: [15-18,20-23]>
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.   
</sxh> |

</hidden>

__**หมายเหตุ**__ - สามารถใช้ได้กับ Getter/Setter ของ Property ที่อยู่ในรูปของ Procedure/Function ได้เช่นกัน
Pascal-Lazarus Tutorial

User Tools

Site Tools

Page Tools
