Pascal-Lazarus Tutorial

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
======Conditional Statements======
===== If - Statements =====
^  Statements  ^  Syntax  ^ 
|If..Then|<sxh delphi;>
if {Condition} then {Statement}; 
</sxh> |
|If..Then..Else|<sxh delphi;>
if {Condition} then 
  {Statement1}
else
  {Statement2};
</sxh> |
|If..Then/ Else If..Then/ Else|<sxh delphi;>
if {Condition1} then 
  {Statement1}
else if {Condition2} then
  {Statement2}
else
  {Statement3};
</sxh> |

จากตารางข้างบน เป็นรูปแบบ If ที่มี statement แค่บรรทัดเดียวต่อหนึ่ง condition เท่านั้น อย่างไรก็ตามหากมี statement หลายบรรทัด ต้องเติม begin .. end ด้วยทุกครั้ง ดังนี้

<hidden If-Statement: Multiple Statements>
|If..Then|<sxh delphi;>
if {Condition} then 
 begin
  {Statement1};
  {Statement2};
  {...};
 end;
</sxh> |
|If..Then..Else|<sxh delphi;>
if {Condition} then 
 begin
  {Statement1};
  {Statement2};
  {...};
 end
else
 begin
  {Statement3};
  {Statement4};
  {...};
 end;
</sxh> |
|If..Then/ Else If..Then/ Else|<sxh delphi;>
//---Single Statement---
if {Condition1} then 
 begin
  {Statement1};
  {Statement2};
  {...};  
 end
else if {Condition2} then
 begin
  {Statement3};
  {Statement4};
  {...};
 end
else
 begin
  {Statement5};
  {Statement6};
  {...};
 end;

</sxh> |
</hidden> \\





===== Case - Statements =====
^  Statements  ^  Syntax  ^ 
|Exact value|<sxh delphi;>
//---Single Statement---
case {Var} of 
  1: {Statement1};
  2: {Statement2};
  3: {Statement3};
  else {Statement4};
end; 
</sxh> |
|Range|<sxh delphi;>
case {Var} of 
  1..10: {Statement1};
  11..20: {Statement2};
  21..30: {Statement3};
  else {Statement4};
end; 

</sxh> |

จากตารางข้างบน เป็นรูปแบบ Case ที่มี statement แค่บรรทัดเดียวต่อหนึ่ง condition เท่านั้น อย่างไรก็ตามหากมี statement หลายบรรทัด ต้องเติม begin .. end ด้วยทุกครั้ง ดังนี้


<hidden Case-Statements: Multiple Statements>
^  Statements  ^  Syntax  ^ 
|Exact value|<sxh delphi;>
case {Var} of 
  1: begin 
      {Statement1};
      {Statement2};
      ...;
      end;
  2: begin
      {Statement3};
      {Statement4};
      {Statement5};
      ...
      end;
  3: {Statement6};
  else {Statement7};
end; 
</sxh> |
|Range|<sxh delphi;>
case {Var} of 
  1..10: begin 
      {Statement1};
      {Statement2};
      ...;
      end;
  11..20: begin 
      {Statement3};
      {Statement4};
      ...;
      end;
  21..30: begin 
      {Statement5};
      {Statement6};
      ...;
      end;
  else begin 
      {Statement7};
      {Statement8};
      ...;
      end;
end; 

</sxh> |
</hidden> \\
===== 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> |
Pascal-Lazarus Tutorial

User Tools

Site Tools

Page Tools
