การใช้งาน Class และ Instance ในภาษา Delphi Object Pascal

ในโลกของการเขียนโปรแกรมที่ใช้แนวทางเชิงวัตถุ (Object-Oriented Programming: OOP) การทำความเข้าใจเกี่ยวกับ `class` และ `instance` เป็นสิ่งสำคัญมาก เนื่องจากมันเป็นพื้นฐานที่ช่วยให้เราสามารถสร้างโปรแกรมที่มีความยืดหยุ่นและสามารถจัดการกับข้อมูลได้อย่างมีประสิทธิภาพ ในบทความนี้เราจะสำรวจการใช้งาน `class` และ `instance` ในภาษา Delphi Object Pascal พร้อมตัวอย่างโค้ดและการประยุกต์ใช้ในโลกจริง

Class และ Instance คืออะไร?

การสร้าง Class ใน Delphi

ใน Delphi เราสามารถสร้าง `class` ได้โดยใช้คำสั่ง `class` ตามด้วยชื่อของ `class` และคุณสมบัติและพฤติกรรมที่ต้องการ เช่น:

 type
  TCar = class
  private
    FBrand: string;
    FModel: string;
    FColor: string;
  public
    constructor Create(Brand, Model, Color: string);
    procedure Accelerate;
    procedure DisplayInfo;
  end;

constructor TCar.Create(Brand, Model, Color: string);
begin
  FBrand := Brand;
  FModel := Model;
  FColor := Color;
end;

procedure TCar.Accelerate;
begin
  // code สำหรับเข้าเกียร์และเร่งความเร็ว
  WriteLn('Car is accelerating...');
end;

procedure TCar.DisplayInfo;
begin
  WriteLn('Brand: ' + FBrand);
  WriteLn('Model: ' + FModel);
  WriteLn('Color: ' + FColor);
end;

การสร้าง Instance

เพื่อสร้าง `instance` ของ `class` ที่เราเพิ่งสร้าง เราจะใช้คำสั่ง `Create` ซึ่งเป็น constructor ที่เรากำหนดไว้ใน `class` เช่น:

 var
  myCar: TCar;
begin
  myCar := TCar.Create('Toyota', 'Corolla', 'Red');
  myCar.DisplayInfo;
  myCar.Accelerate;
end;

ในโค้ดด้านบน เราได้สร้าง `instance` ชื่อ `myCar` ของ `class` `TCar` โดยกำหนดยี่ห้อ, รุ่น, และสีให้กับรถยนต์ และเมื่อเราทำการเรียกใช้ `DisplayInfo` และ `Accelerate` รถยนต์จะถูกแสดงข้อมูลและทำการเร่งความเร็ว

Use Case ในโลกจริง

ตัวอย่าง Use Case

ในระบบบริหารจัดการสินค้าคงคลัง เราสามารถใช้แนวทาง OOP โดยการสร้าง `class` สำหรับสินค้าต่างๆ เช่น `TProduct` ที่มีคุณสมบัติต่างๆ เช่น ชื่อสินค้า, รหัสสินค้า, ราคา, และจำนวนในสต็อก

 type
  TProduct = class
  private
    FName: string;
    FID: Integer;
    FPrice: Double;
    FStock: Integer;
  public
    constructor Create(Name: string; ID: Integer; Price: Double; Stock: Integer);
    procedure DisplayStock;
    procedure SellProduct(Quantity: Integer);
  end;

constructor TProduct.Create(Name: string; ID: Integer; Price: Double; Stock: Integer);
begin
  FName := Name;
  FID := ID;
  FPrice := Price;
  FStock := Stock;
end;

procedure TProduct.DisplayStock;
begin
  WriteLn('Product Name: ' + FName);
  WriteLn('Stock Available: ' + IntToStr(FStock));
end;

procedure TProduct.SellProduct(Quantity: Integer);
begin
  if FStock >= Quantity then
  begin
    FStock := FStock - Quantity;
    WriteLn('Sold ' + IntToStr(Quantity) + ' units of ' + FName);
  end
  else
  begin
    WriteLn('Not enough stock for product: ' + FName);
  end;
end;

ในกรณีนี้ เราสามารถสร้าง `instance` ของ `TProduct` เพื่อจัดการกับสินค้าหรือผลิตภัณฑ์ต่างๆในฐานข้อมูล อย่างเช่น:

 var
  product1: TProduct;
begin
  product1 := TProduct.Create('Laptop', 1001, 15000, 20);
  product1.DisplayStock;
  product1.SellProduct(5);
  product1.DisplayStock;
end;

เราสามารถเห็นได้ว่า การใช้ `class` และ `instance` ช่วยให้เราได้โครงสร้างที่เรียบร้อยและสามารถจัดการกับข้อมูลได้อย่างมีระเบียบมากขึ้น

สรุป

การใช้งาน `class` และ `instance` ในภาษา Delphi Object Pascal นั้นไม่ยากเลย และสามารถนำไปประยุกต์ใช้งานในโปรเจกต์จริงได้อย่างง่ายดาย แนวทาง OOP ช่วยให้เราสร้างโปรแกรมที่มีความซับซ้อนได้น้อยลง โดยทำให้เราแยกส่วนของความรับผิดชอบออกจากกันได้ดีขึ้น

หากคุณสนใจที่จะเรียนรู้เพิ่มเติมเกี่ยวกับการเขียนโปรแกรมในแนวทาง OOP หรือภาษา Delphi, ขอเชิญชวนคุณมาเรียนรู้กับเราได้ที่ EPT (Expert-Programming-Tutor) ที่จะช่วยคุณพัฒนาทักษะการเขียนโปรแกรมแบบมืออาชีพ!

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง