Differences

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

--- tutorial:procedureandfunction [2019/01/04 15:16]
admin
+++ tutorial:procedureandfunction [2019/01/04 21:15]
admin [Forward Declaration]
@@ Line 124: / Line 124: @@
 การส่งผ่าน Parameters เข้าไปใน Procedure/Function มี 2 แบบ คือ By Value และ By Reference
   * **By Value** คือ ส่งเฉพาะค่าของ Parameter เข้าไปใน Procedure/Function โดยหากมีการเปลี่ยนแปลงค่าใดๆใน Procedure/Function นั้น จะ__**ไม่เปลี่ยนแปลง**__ต่อค่าที่แท้จริงของ Parameter สำหรับการรับค่าแบบปกติ
-  * **By Reference** คือ ส่งเฉพาะค่าของ Parameter เข้าไปใน Procedure/Function โดยหากมีการเปลี่ยนแปลงค่าใดๆใน Procedure/Function นั้น จะ__**เปลี่ยนแปลง**__ค่าที่แท้จริงของ Parameter ด้วย
+  * **By Reference** คือ หากมีการเปลี่ยนแปลงค่าใดๆของ Parameter ใน Procedure/Function นั้น จะ__**เปลี่ยนแปลง**__ค่าที่แท้จริงของ Parameter ด้วย
 ====By Value====
@@ Line 135: / Line 135: @@
     writeln('X = ',X);
   end;
-</sxh>
+</sxh> \\
-อย่างไรก็ตาม เราสามารถระบุ const หน้า Parameter ได้เช่นกัน
-<sxh delphi;>
-  procedure DoItA(const X:integer);
-  begin
-    X:=10;
-    writeln('X = ',X);
-  end;
-</sxh>
-\\
 ====By Reference====
@@ Line 158: / Line 147: @@
   end;
 </sxh>
+<hidden Example-6: Passing Parameters (By Value, By Reference)>
+<sxh delphi;>
+program Passing_Param;
+var A,B:integer;
+procedure DoItA(X:integer); //By Value
+begin
+  X:=100;
+  writeln('DoItA, X = ',X);
+end;
+procedure DoItB(var X:integer); //By Reference
+begin
+  X:=200;
+  writeln('DoItB, X = ',X);
+end;
+begin
+  A:=1;
+  B:=2;
+  writeln('A = ',A);
+  writeln('B = ',B);
+  DoItA(A);
+  DoItB(B);
+  writeln('A = ',A);
+  writeln('B = ',B);
+  readln();
+end.
+</sxh>
+Compiled Results:
+  A = 1
+  B = 2
+  DoItA, X = 100
+  DoItB, X = 200
+  A = 1
+  B = 200
+</hidden>
+\\
+=====Forward Declaration=====
+คือ การประกาศ Procedure/Function ล่วงหน้าเพื่อให้ทุก Procedure/Function สามารถเรียกใช้งานกันและกันได้หมด สาเหตุที่ต้องทำแบบนี้เพราะว่า โดยปกตินั้น Compiler จะอ่าน source code จาก บนลงล่าง ดังนั้น หากมี Procedure/Function ตัวใดตัวหนึ่งเรียกใช้งาน Procedure/Function ตัวอื่นที่ยังไม่ได้ประกาศ จะทำให้เกิด Error \\
+รูปแบบการประกาศสำหรับ Program จะมีคำว่า forward ต่อท้ายดังนี้
+  Procedure ProcedureName; forward;
+<hidden Example-7: Forward Declarations on Simple Program>
+__**อธิบาย**__ - ตัวอย่างนี้ มีการประกาศโปรแกรมย่อย ชื่อ Second ล่วงหน้าในบรรทัดที่ 4 เพื่อให้โปรแกรมย่อยที่ชื่อ First ได้รู้จัก Second ก่อน แน่นอนว่าหากตัด code ในบรรทัดที่ 4 ออกไปแล้ว สิ่งที่จะตามมาคือ เมื่อ compiler อ่านจนมาถึง First ก็จะฟ้องทันทีว่าไม่สามารถหา Second เจอ
+<sxh delphi;highlight: [4]>
+program FWD_Declaration;
+//Forward declarations
+procedure Second;  forward;
+//Implementations
+procedure First;
+begin
+  writeln('Hello First');
+  Second;
+end;
+procedure Second;
+begin
+  writeln('Hello Second');
+end;
+begin
+  First;
+  readln();
+end.
+</sxh>
+Compiled Results:
+  Hello First
+  Hello Second
+</hidden>
+\\

Pascal-Lazarus Tutorial

User Tools

Site Tools

Differences

Page Tools