Differences

This shows you the differences between two versions of the page.

--- tutorial:conditionalstatement [2019/01/07 09:14]
admin [If - Statements]
+++ tutorial:conditionalstatement [2019/01/07 12:56]
admin [Break, Continue, Exit and Goto]
@@ Line 83: / Line 83: @@
   else {Statement4};
 end;
+</sxh> |
+|Range|<sxh delphi;>
+case {Var} of
+..10: {Statement1};
+..20: {Statement2};
+..30: {Statement3};
+  else {Statement4};
+end;
+</sxh> |
+จากตารางข้างบน เป็นรูปแบบ Case ที่มี statement แค่บรรทัดเดียวต่อหนึ่ง condition เท่านั้น อย่างไรก็ตามหากมี statement หลายบรรทัด ต้องเติม begin .. end ด้วยทุกครั้ง ดังนี้
-//---Multiple Statements---
+<hidden Case-Statements: Multiple Statements>
+^  Statements  ^  Syntax  ^
+|Exact value|<sxh delphi;>
 case {Var} of
 : begin
@@ Line 102: / Line 117: @@
 </sxh> |
 |Range|<sxh delphi;>
-//---Single Statement---
 case {Var} of
-..10: {Statement1};
+..10: begin
-..20: {Statement2};
+      {Statement1};
-..30: {Statement3};
+      {Statement2};
-  else {Statement4};
+      ...;
+      end;
+..20: begin
+      {Statement3};
+      {Statement4};
+      ...;
+      end;
+..30: begin
+      {Statement5};
+      {Statement6};
+      ...;
+      end;
+  else begin
+      {Statement7};
+      {Statement8};
+      ...;
+      end;
 end;
 </sxh> |
-\\
+</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 one 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> |

Pascal-Lazarus Tutorial

User Tools

Site Tools

Differences

Page Tools