This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision Next revision | Previous revision | ||
|
tutorial:conditionalstatement [2019/01/07 09:48] admin [Case - Statements] |
tutorial:conditionalstatement [2019/01/07 13:00] (current) admin [Break, Continue, Exit and Goto] |
||
|---|---|---|---|
| Line 142: | Line 142: | ||
| </sxh> | | </sxh> | | ||
| </hidden> \\ | </hidden> \\ | ||
| - | ===== Break, Continue and Goto ===== | + | ===== Break, Continue, Exit and Goto ===== |
| + | คำสั่ง Break, Continue, Exit และ Goto สรุปได้ดังนี้ | ||
| + | |||
| + | ^ Procedures ^ Meaning ^ Format ^ | ||
| + | | Break | ออกจาก Loop ปัจจุบัน (For/While/Repeat) |<sxh delphi;> | ||
| + | for i:=1 to 10 do | ||
| + | if i=5 then break; | ||
| + | |||
| + | writeln('i = ',i); //i = 5 | ||
| + | readln; | ||
| + | </sxh> | | ||
| + | |Continue| สิ้นสุด Loop ปัจจุบันทันที เพื่อเริ่ม Loop ปัจจุบันใหม่ในรอบถัดไป (For/While/Repeat) |<sxh delphi;> | ||
| + | for i:=1 to 5 do | ||
| + | begin | ||
| + | if i=4 then continue; | ||
| + | writeln('i = ',i); //i = 4 won't be showed | ||
| + | end; | ||
| + | </sxh> | | ||
| + | |Exit| ออกจาก Sub-Program ปัจจุบัน (Procedure/Function) |<sxh delphi;> | ||
| + | procedure MyProc; | ||
| + | begin | ||
| + | exit; | ||
| + | writeln('After Exit'); //This won't be shown | ||
| + | end; | ||
| + | </sxh> | | ||
| + | |Goto| ไปยัง Label ที่ระบุ |<sxh delphi;> | ||
| + | label PointA,PointB; //declare labels | ||
| + | BEGIN | ||
| + | Goto PointB; | ||
| + | PointA: | ||
| + | wrtieln('Passing PointA'); | ||
| + | exit; //Exit the program | ||
| + | PointB: | ||
| + | wrtieln('Passing PointB'); | ||
| + | Goto PointA; | ||
| + | END. | ||
| + | </sxh> | | ||