การใช้งาน for each ในภาษา Delphi Object Pascal แบบง่ายๆ พร้อมตัวอย่าง CODE 3 ตัวอย่าง และอธิบายการทำงาน และยกตัวอย่าง usecase ในโลกจริง

การใช้งาน for each ในภาษา Delphi Object Pascal แบบง่ายๆ

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

ตัวอย่าง CODE 1: การวนลูปผ่านอาร์เรย์

var
  i: Integer;
  numbers: array [1..5] of Integer = (1, 2, 3, 4, 5);
begin
  for i in numbers do
  begin
    WriteLn('Number: ', i);
  end;
end;

ในตัวอย่างนี้, การวนซ้ำผ่านอาร์เรย์ `numbers` ทำได้ง่ายๆ ผ่านการใช้คำสั่ง `for i in numbers` ซึ่ง ตัวแปร `i` จะได้รับค่าของแต่ละสมาชิกในอาร์เรย์เมื่อแต่ละรอบของการวนซ้ำเกิดขึ้น และค่านั้นจะถูกใช้ภายในท้องที่วนซ้ำ (`begin ... end;`).

ตัวอย่าง CODE 2: การวนซ้ำทีละองค์ประกอบในรายการ (List)

uses
  Generics.Collections;

var
  fruit: string;
  fruits: TList;
begin
  fruits := TList.Create;
  try
    fruits.Add('Apple');
    fruits.Add('Banana');
    fruits.Add('Cherry');

    for fruit in fruits do
    begin
      WriteLn('Fruit: ', fruit);
    end;
  finally
    fruits.Free;
  end;
end;

ในตัวอย่างที่สองนี้, เราได้สร้างรายการชนิด `TList` และเพิ่มผลไม้ลงไป เมื่อใช้ `for fruit in fruits`, Delphi จะวนเข้าไปในรายการของ `fruits` ทีละองค์ประกอบ ทำให้เราสามารถจัดการข้อมูลได้ง่ายขึ้น

ตัวอย่าง CODE 3: การวนซ้ำผ่านองค์ประกอบในเมทอดของออบเจกต์

type
  TCar = class
  private
    FModel: string;
  public
    constructor Create(model: string);
    property Model: string read FModel write FModel;
  end;

var
  car: TCar;
  cars: TArray;
begin
  cars := TArray.Create(TCar.Create('Honda'), TCar.Create('Toyota'), TCar.Create('Ford'));
  try
    for car in cars do
    begin
      WriteLn('Car model: ', car.Model);
    end;
  finally
    for car in cars do car.Free;
  end;
end;

ในตัวอย่างที่สาม, เรามีอาร์เรย์แบบไดนามิกของอ็อบเจ็กต์ `TCar`. การวนซ้ำผ่านอาร์เรย์ดังกล่าวด้วย `for car in cars` ทำให้เราสามารถเข้าถึงและจัดการข้อมูลของแต่ละรถยนต์ได้ง่ายขึ้น

Usecase ในโลกจริง

การใช้ `for each` มีประโยชน์หลากหลาย ตั้งแต่การจัดการข้อมูลไปจนถึงการสร้าง User Interface ที่ซับซ้อน เช่น:

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

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

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