หน้าแรก
 การบ้าน
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  แจ้งเรื่องที่ต้องการ
 บทความ
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 แบบเรียนฟรี
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 ซอร์สโค้ด
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 บริการจากเรา
  เปิดท้าย... ขายโค้ด
  DoodeeHosting
  รับออกแบบ พัฒนาเว็บไซต์
  Freeware
  อัตราค่าโฆษณา
  รายชื่อลูกค้า
  สถิติผู้เข้าเว็บ
 ดาว์นโหลด
 ค้นหาข้อมูล
 กระดานสนทนา
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
  อื่นๆ
 กระดานงาน
 ลิงค์เว็บ
 เกี่ยวกับผม
 อัตราค่าโฆษณา
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
โปรแกรมเบอร์ดี (BerDee)
โปรแกรมเบอร์ดี (Android)
เกมส์เป่ายิ้งฉุบ
เกมส์เป่ายิ้งฉุบ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ติดต่อสอบถามมาได้ตลอดนะครับ...
2015-07-29 13:35:58
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:33:54
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:32:51
  ติดต่อสอบถามเข้ามาได้นะคับ
งานเล...

2014-01-06 12:47:38
  ถ้ายังหาคนสอนไม่ได้ ก็ลองศึกษาเองได...
2013-07-06 01:04:37
  สนใจส่งขอบเขตมาคุยราคาก่อนได้นะคับ...
2013-03-24 18:54:20
  ถ้ายังไม่มีคนรับงานติดต่อได้ครับ 08...
2012-12-16 19:18:14
  สนใจคะ ติดต่อ 0905076277...
2012-11-12 11:07:46
  รับทำโปรเจ็คนักศึกษาหรือบริษัท
ส...

2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  ถ้าเขียน php ก็ใช้ curl ส่...
2017-04-20 01:04:20
  เขียนโค้ดไม่เป็น เอาโค้ดไป ...
2017-03-27 12:50:54
  คือสงสัยว่าทำไม ต้องอัพเดทด...
2017-03-27 12:37:20
  ทดสอบการตอบ...
2017-02-22 13:10:24
  ลองอีกวิธีเขียน recursive f...
2017-02-14 13:11:03
  อยากได้ โค้ดระบบห้องสมุดมาก...
2017-01-30 11:45:28
  ทำ for-loop ซ้อนกัน
โดย...

2017-01-28 16:00:12
  เดาว่าใช้ Stack เข้ามาช่วย...
2017-01-28 15:57:09
  ยืมเสร็จแล้ว ก็เอามาคืนด้วย...
2016-10-27 14:56:42
  ยืมโค้ดหน่อยครับ...
2016-10-27 14:49:44
  Homework comment
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:40:46
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:37:54
  ประเด็นแรก flowchart มันไม่มีภ...
2017-04-18 17:43:33
  อยากได้ flowchart ค่ะ เป็นภาษา...
2017-04-18 16:25:29
  kungking คำถามคืออะไรครับ ?...
2017-03-18 23:28:36
  จงเขียนโปรแกรมแสดงผลรวมของตัวเ...
2017-03-06 10:56:25
  ก็โค้ดทำงานคล้ายๆแบบนี้หละ แต่...
2016-09-06 01:00:12
  ผมอยากทราบว่าโค้ดนับถอยหลังเป็...
2016-09-05 09:31:27
  ได้โค้ดแล้ว ลองศึกษาแล้วเขียนผ...
2016-04-22 00:47:49
  ขอแผนผังของโปรแกรมนับตัวอักษรภ...
2016-04-21 19:24:55
  Article comment
  ครับ คุณ "ติด" แล้วลองนึกต่อว่...
2016-06-18 15:21:09
  vs2008 c# ครับ ขอบคุณครับ...
2016-06-17 14:39:30
  ผมใช้ vs c# ทำตามทุขั้นตอนแต่ต...
2016-06-17 14:37:44
  ต้องวิเคราะห์ครับ "ว่าจริงๆ ส่...
2016-03-12 23:36:05
  ผมส่งข้อความในวง LAN ได้เฉพาะค...
2016-03-12 18:25:42
  โปรแกรม Terminal บน Mac ก็เป็น...
2016-02-16 11:02:01
  โปรแกรม Terminal คืออะไรหรอคะ...
2016-02-16 05:58:21
  ไปตั้ง โครงการไว้เลยครับ ที่
2016-01-25 13:29:55
  ด่วน!!! ต้องการคนเขียน App โดย...
2016-01-25 10:56:34
  ผมได้ทำตามคำแนะนำจนสิ้นสุดแล้ว...
2016-01-20 23:30:25
  9Mcode comment
  อยากได้...
2014-02-21 08:52:19

Link Exchange

อัตราค่าโฆษณา
Statistics of Sourcecode in Thailand
 
What?s new in Delphi 2005 #1 ( for ?in loop statement) (อ่าน 11,758)
บทความโดย Artist / syootakarn@hotmail.com 

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

 
 
Freelanceรับพัฒนาโปรแกรม และเว็บ โดย 9'M 

Delphi 2005 มีการเพิ่มความสามารถใหม่ๆ เข้ามามากมายทั้งในตัว IDE เองและในส่วนของโปรแกรมอัตถประโยชน์ (add-in) แต่ละความสามารถนั้นช่วยให้นักพัฒนาๆ โปรแกรมได้สะดวกและรวดเร็วยิ่งขึ้น ผมจะทยอยนำมาเขียนให้ผู้อ่านได้อ่านกันนะครับ
วันนี้เรามาดูคำสั่ง(keyword) ที่ได้เพิ่มเข้ามาใน Delphi 8 ชื่อคำสั่ง for ?in loop ครับเป็นการประยุกต์ใช้คำสงวน for และ in มาใช้งาน แต่ก่อนนั้นการเขียนโปรแกรมใน Delphi ถ้าเราต้องการใช้ for loop เพื่อใช้งานค่าที่เก็บอยู่ใน Array , List หรือ Array Pointer เราจะต้องเพิ่มตัวแปรเข้าไปอย่างน้อยหนึ่งเพื่อใช้เป็นอินเด็กใช้อ้างอิงถึงตำแหน่งที่เราต้องการเข้าถึง ถึงแม้เราจะใช้ Iterator (วัตถุหรือโปรแกรมย่อยที่ใช้เข้าตัวแปรแบบ Array) ก็ตามแต่ใน Iterator นั้นก็ยังจำเป็นต้องมีตัวแปรที่ใช้เป็นอินเด็กอยู่ดี ตัวอย่างข้างล่างเป็นการเข้าถึงตัวแปร Array

var
  i: Integer;
begin
  Memo1.Clear;
  for i:=0 to ListBox1.Items.Count-1 do
    Memo1.Lines.Add(ListBox1.Items[i]);

โปรแกรมด้านบนเป็นโปรแกรมคัดลอกข้อมูลที่เก็บอยู่ใน Listbox1 มาเก็บไว้ใน Memo1 จากโปรแกรมจะเห็นว่าเราต้องเพิ่มตัวแปรเข้ามาในโค๊ดของเราหนึ่งตัว ในที่นี้เราเพิ่มเข้ามาหนึ่งตัว ถ้าหากโปรแกรมมีขนาดใหญ่และซับซ้อนมากกว่านี้และเราจะต้องใช้ตัวแปรมากขึ้นกว่านี้ อาจจะทำให้คุณใช้งานตัวผิดพลาดได้ เนื่องจากเราต้องทราบตำแหน่งเริ่มต้นและสิ้นสุดของตำแหน่งใน Array เช่นตำแหน่งเริ่มอาจจะเริ่มที่ ?0? หรือ ?1? หรือตำแหน่งใดๆ ก็ได้ ทีนี้เรามาดูโปรแกรมข้างล่างกัน

procedure TForm3.Button2Click(Sender: TObject);
var
  S: String;
begin
  Memo1.Clear;
  for S in ListBox1.Items do
    Memo1.Lines.Add(S);
end;

โปรแกรมข้างบนคำสั่ง for S in ListBox1.Items do เป็นการให้ Delphi Compiler ทำการใส่คำสั่งพิเศษเข้าไปในโปรแกรมของเราเพื่อให้เพิ่มค่า Index ให้เราโดยอัตโนมัติโดยให้เริ่มจากตำแหน่งเริ่มต้นจุดถึงตำแหน่งสิ้นสุด(ค่า index จะไม่แสดงให้เราเห็นตอนเขียนโปรแกรม) ในโปรแกรมนี้เราต้องสร้างตัวขึ้นมาใหม่เป็นชนิดเดียวกับตัวแปรที่เราต้องการให้เลื่อนตำแหน่ง index จากโปรแกรมเราสร้างตัวแปรชื่อ S ซึ่งเป็นแบบ String ขึ้นมาใหม่ จากนั้นนำมาใส่ใน for ?in loop เมื่อเรารันโปรแกรมค่า Index ที่ชี้ไปที่ ListBox.Item จะเพิ่มขึ้นทีละหนึ่งโดยอัตโนมัติ (ค่าดังกล่าวได้มาจากการเรียกใช้ฟังก์ชั่น GetEnumerator) และค่าที่เก็บใน S จะเป็นค่าที่ข้อมูลใน Array ตำแหน่ง index การใช้งาน S ใน for ?in loop นั้นต้องจำไว้เสมอว่าเมื่อใช้งานค่าของ S จะเป็นค่าที่อ่านได้อย่างเดียว (read only) เสมอ จากโปรแกรมข้างบนถ้าเราเขียนโปรแกรมโดยไม่ใช้ for-in loop โปรแกรมจะเป็นดังนี้

procedure TForm3.Button4Click(Sender: TObject);

var
  i: Integer;
  
begin
  Memo1.Clear;
  for i:=0 to ListBox1.Items.Count-1 do
    Memo1.Lines.Add(ListBox1.Items[i]);
	
end;

มาดูตัวอย่างต่อไปครับ

procedure TForm3.Button2Click(Sender: TObject);

var
  S: String;
  C: Char;
  Spaces: Integer;

begin
  Spaces := 0;
  Memo1.Clear;
  for S in ListBox1.Items do
  begin
    Memo1.Lines.Add(S);
    for C in S do
      if C = ' ' then Inc(Spaces);
  end;

end;

โปรแกรมข้างบนเป็นการใช้งาน for-in loop ให้เพิ่มค่า index ที่เป็นตำแหน่งตัวอักขระในข้อความครับ มาดูอีกตัวอย่างนะครับ

procedure TForm1.Button1Click(Sender: TObject);

var
  Comp: TComponent;

begin
  ListBox1.Clear;
  for Comp in Self do
    ListBox1.Items.Add(Comp.Name + ': ' + Comp.ClassName);

end;

โปรแกรมข้างบนเป็นการใช้งาน for-in loop เพื่ออ้างอิงถึงตำแหน่ง Comp ใน Self ครับ โดย Comp เป็นตัวแปรวัตถุ TComponent ที่อ้างอึงมาจากตัวแปร self ซึ่งเป็น TForm1 หรือตัวแปรวัตถุ TForm ที่เป็นคลาสฐาน คล้ายตัวแปร this ใน C++ หรือตัวแปร ME ใน Visual Basic นะครับ มาดูอีกตัวอย่างนึงครับ

procedure TForm3.Button3Click(Sender: TObject);

var
  Comp: TComponent;

begin
  ListBox1.Clear;
  for Comp in Self do
  begin
    Comp.Tag := 42;
    if (Comp is TButton) then
      (Comp as TButton).Caption :=
        '<'+(Comp as TButton).Name+'>'; 
    ListBox1.Items.Add(Comp.Name + ': ' + Comp.ClassName);
  end;

end;

โปรแกรมข้างบนต่อยอดจากโปรแกรมก่อนหน้านี้เป็นการตรวจสอบค่าของ Comp ที่อยู่ใน for-in loop ครับ พึงระวังเสมอนะครับว่าค่าของ Comp ที่อยู่ใน for-in loop นั้นเป็นค่าที่อ่านได้อย่างเดียว ไม่สามารถใช้คำสั่ง create() สร้างมันขึ้นมาได้เมื่อใช้งานกับคำสั่ง for-in loop

 

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

สอบถาม
  • ห้ามการโฆษณา หากต้องการติดต่อหาลูกค้า ติดต่อโฆษณาโดยตรงได้ที่ webmaster@sourcecode.in.th
  • ห้ามใช้คำหยาบและคำพูดที่ไม่เหมาะสม
  • ขอสงวนสิทธิหากตรวจพบ ข้อความที่ไม่เหมาะสม ข้อความนั้นจะถูกลบทันที
ชื่อ
อีเมล์
รายละเอียด

 
 
สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI)
สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI) ความละเอียดระดับ 4K
หัวแปลง Mini DisplayPort to HDMI Adapter หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
ไขควงสำหรับเครื่อง Macbook Air/Pro
ไขควง สำหรับแกะเครื่อง Macbook Air/Pro (300บาท)
HDMI เข้า 3 ออก  1 มีรีโมท
HDMI เข้า 3 ออก 1 มีรีโมท (350บาท)
คลิปสอนเขียนโปรแกรม
เรียนเขียนโปรแกรมดอทเน็ต
เรียนเขียนโปรแกรมแอนดรอยด์
เรียนเขียนโปรแกรมเบล็คเบอร์รี่
เรียนเขียนโปรแกรมซี ซีพลัสพลัส
เรียนเขียนโปรแกรมจาวา
เรียนการใช้งานลินุกส์
เรียนการเขียนโปรแกรมวินโดว์โฟน
เรียนการเขียนโปรแกรมพีเฮชพี มายเอสคิวเอล
9M Blog บอกเล่าเรื่องราว การเขียนโปรแกรมของ นายเอ็ม
บริการ ถ่ายภาพรับปริญญา
OrmSin.com: ขายหนังสืองานฝีมือไทย-ญี่ปุ่น-จีน (country crafts)
อัตราค่าโฆษณา
 
บทความที่เกี่ยวข้อง

Zoom หน้าจอด้วย Delphi

Dynamic Cast ใน Delphi

เขียนโปรแกรมให้ Run ตอน Startup Windows

สร้าง LED Control

การเขียน ActiveForm(ActiveX Control) เบื้องต้น

โปรแกรม Post ข้อมูล ไปยังไฟล์ ASP

แสดงหมายเลข IP Address ของเครื่องบน NetWork

การแสดงรายชื่อ Email Contact ของ Microsoft Outlook

การหาตำแหน่งของ Caret ใน Memo

การเขียน Service Application เพื่อใช้งานบน Windows NT/2000/XP
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
แบบสำรวจ
Freelance รับพัฒนาโปรแกรม

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

สงวนลิขสิทธิ์ ห้ามคัดลอก ทำซ้ำ แก้ไข ดัดแปลง ไม่ว่าในรูปแบบใด โดยไม่ได้รับอนุญาตเป็นลายลักษณ์อักษร
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์จากกระทรวงพาณิชย์: 7100503002000
Copyright 2001 SourceCode.in.th