การใช้งาน Generic และ Generic Collection ในภาษา Delphi Object Pascal แบบง่ายๆ พร้อมตัวอย่าง CODE

ในโลกของการพัฒนาโปรแกรม ภาษา Delphi Object Pascal นับเป็นหนึ่งในภาษาที่มีความนิยมสูง และสามารถนำไปใช้ในการพัฒนาแอปพลิเคชันที่หลากหลาย ไม่ว่าจะเป็นโปรแกรมเดสก์ท็อปหรือมือถือ หนึ่งในฟีเจอร์ที่โดดเด่นใน Delphi ก็คือ "Generics" ซึ่งช่วยให้ผู้พัฒนาสามารถทำงานกับประเภทข้อมูลที่มีความหลากหลายได้อย่างมีประสิทธิภาพ

Generics คืออะไร?

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

ประโยชน์ของ Generics

ตัวอย่างการใช้งาน Generics ใน Delphi

การสร้าง Generic Class

ใน Delphi เราสามารถสร้างคลาสที่เป็น Generic ได้อย่างง่ายดาย ตัวอย่างเช่น:

 unit GenericStack;

interface

type
  TGenericStack<T> = class
  private
    FItems: array of T;
    FCount: Integer;
  public
    constructor Create;
    procedure Push(AItem: T);
    function Pop: T;
    function Count: Integer;
  end;

implementation

constructor TGenericStack<T>.Create;
begin
  SetLength(FItems, 0);
  FCount := 0;
end;

procedure TGenericStack<T>.Push(AItem: T);
begin
  SetLength(FItems, FCount + 1);
  FItems[FCount] := AItem;
  Inc(FCount);
end;

function TGenericStack<T>.Pop: T;
begin
  if FCount = 0 then
    raise Exception.Create('Stack is empty');
  Dec(FCount);
  Result := FItems[FCount];
  SetLength(FItems, FCount);
end;

function TGenericStack<T>.Count: Integer;
begin
  Result := FCount;
end;

end.

การใช้งาน Generic Class

เมื่อเรามี `TGenericStack<T>` แล้ว เราสามารถนำมาทดสอบการใช้งานได้ดังนี้:

 program TestGenericStack;

uses
  GenericStack;

var
  StackInt: TGenericStack<Integer>;
  StackStr: TGenericStack<string>;
begin
  StackInt := TGenericStack<Integer>.Create;

  StackInt.Push(1);
  StackInt.Push(2);
  StackInt.Push(3);
  WriteLn('Integer Count: ', StackInt.Count); // Output: 3
  WriteLn('Popped: ', StackInt.Pop);          // Output: 3
  WriteLn('Integer Count: ', StackInt.Count); // Output: 2

  StackStr := TGenericStack<string>.Create;
  StackStr.Push('Hello');
  StackStr.Push('World');
  WriteLn('String Count: ', StackStr.Count); // Output: 2
  WriteLn('Popped: ', StackStr.Pop);          // Output: World

  // เพื่อไม่ให้เกิดรอยรั่วเราต้องทำการ free object
  StackInt.Free;
  StackStr.Free;
end.

Use Cases ของ Generics ในโลกจริง

สรุป

Generics ในภาษา Delphi Object Pascal เป็นเครื่องมือที่ทรงพลังซึ่งช่วยให้ผู้พัฒนาสามารถสร้างโค้ดที่ยืดหยุ่นและใช้งานได้ง่ายขึ้น สร้างความสะดวกในการพัฒนาและบำรุงรักษาโปรแกรมนั่นเอง หากคุณสนใจในการเรียนรู้เพิ่มเติมเกี่ยวกับการเขียนโปรแกรมและเทคนิคต่าง ๆ ฉันขอเชิญคุณมาศึกษาที่ EPT (Expert-Programming-Tutor) ที่นี่เรามีหลักสูตรที่จัดเต็มทั้งทฤษฎีและปฏิบัติ!

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

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