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

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

ในบทความนี้เราจะมาพูดถึงการใช้งาน Loop ใน Delphi Object Pascal พร้อมตัวอย่าง CODE ที่เข้าใจง่าย และยกตัวอย่าง Usecase ในโลกจริงให้ผู้อ่านได้เห็นภาพกันชัดเจน

Loop คืออะไร?

“Loop” ในการเขียนโปรแกรม คือ เงื่อนไขที่ทำให้ลูปทำงานซ้ำไปเรื่อยๆ จนกว่าจะมีเงื่อนไขที่ปล่อยให้ลูปหยุดทำงาน ใน Delphi Object Pascal เรามักจะใช้ลูปเพื่อทำงานกับข้อมูลในรูปแบบต่างๆ เช่น การประมวลผลรายการใน Array, List หรือการทำงานกับการแสดงผลข้อมูล

ประเภทของ Loop ใน Delphi

ในภาษา Delphi เราจะพบกับ Loop หลักๆ อยู่ 3 ประเภท คือ

1. For Loop

For Loop จะถูกใช้เมื่อเราต้องการทำงานซ้ำตามจำนวนที่กำหนด ซึ่งสามารถกำหนดค่าเริ่มต้นและค่าจบได้อย่างชัดเจน

#### ตัวอย่าง CODE:

 var
  i: Integer;
begin
  for i := 1 to 10 do
  begin
    WriteLn('สวัสดี! นี่คือรอบที่: ', i);
  end;
end;

#### อธิบายการทำงาน:

ในตัวอย่างด้านบน โปรแกรมจะทำงาน 10 รอบ โดยที่ในแต่ละรอบจะพิมพ์ข้อความ "สวัสดี! นี่คือรอบที่: " ตามด้วยหมายเลขรอบที่ทำงานอยู่ ซึ่ง i จะเป็นตัวแปรที่แสดงถึงจำนวนรอบใน Loop

2. While Loop

While Loop จะทำงานซ้ำไปเรื่อยๆ จนกว่าเงื่อนไขที่กำหนดจะเป็นเท็จ

#### ตัวอย่าง CODE:

 var
  i: Integer;
begin
  i := 1;
  while i <= 10 do
  begin
    WriteLn('Hello World ในรอบที่: ', i);
    i := i + 1; // เพิ่มค่า i เพื่อหลีกเลี่ยง Infinite Loop
  end;
end;

#### อธิบายการทำงาน:

ในตัวอย่างนี้ while loop จะทำงานซ้ำเมื่อค่า `i` น้อยกว่าหรือเท่ากับ 10 และทุกๆ รอบจะพิมพ์ข้อความ "Hello World ในรอบที่: " พร้อมกับหมายเลขรอบที่กำลังทำงานอยู่ โดยมีการเพิ่มค่า `i` ขึ้นในทุกการทำงานของลูป เพื่อให้ lặp จบตามเงื่อนไขที่กำหนด

3. Repeat-Until Loop

Repeat-Until Loop ทำงานซ้ำอย่างน้อยหนึ่งครั้ง ไม่ว่าจะเป็นเงื่อนไขใดก็ตาม จะทำให้โปรแกรมหยุดทำงานเมื่อเงื่อนไขที่ระบุนั้นเป็นจริง

#### ตัวอย่าง CODE:

 var
  i: Integer;
begin
  i := 1;
  repeat
    WriteLn('รอบที่: ', i);
    i := i + 1;
  until i > 10; // หยุดเมื่อ i มากกว่า 10
end;

#### อธิบายการทำงาน:

ในตัวอย่างนี้จะเริ่มทำงานที่รอบแรกด้วยการพิมพ์ หมายเลขรอบที่ 1 และจะทำค่าการเพิ่ม i ในทุกรอบ จนกระทั่ง i มีค่ามากกว่า 10 ซึ่งเมื่อถึงตรงนี้จะหยุดการทำงาน

Use Case ในโลกจริง

การใช้งาน Loop ในการเขียนโปรแกรมมีหลายกรณี ตัวอย่างที่เห็นได้ชัดคือการจัดการข้อมูลในระบบฐานข้อมูล ในกรณีที่เราต้องการดึงข้อมูลผู้ใช้รายชื่อทั้งหมด โดยที่ไม่ต้องเขียน CODE หลายบรรทัด

ยกตัวอย่าง Use case:

#### ตัวอย่าง CODE:

 var
  userList: array[1..5] of string = ('User1', 'User2', 'User3', 'User4', 'User5');
  i: Integer;
begin
  WriteLn('รายชื่อผู้ใช้ทั้งหมด: ');
  for i := 1 to Length(userList) do
  begin
    WriteLn(userList[i]);
  end;
end;

สรุป

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

สุดท้ายนี้ ถ้าหากคุณกำลังมองหาแหล่งเรียนรู้การเขียนโปรแกรมแบบเต็มรูปแบบ อย่าลืมศึกษาที่ EPT (Expert-Programming-Tutor) ที่พร้อมจะให้ความรู้กับคุณในทุกๆ สาขา เพื่อพัฒนาทักษะการเขียนโปรแกรมอย่างมีคุณภาพ หวังว่าจะได้เห็นคุณในคอร์สเรียนของเราในเร็วๆ นี้นะครับ!

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