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:35]
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 DoSomething; forward;
+สำหรับ Unit นั้น FPC บังคับให้ต้องมีการทำ forward declaration ทุกครั้งก่อนเสมอ เพราะ unit อื่นหรือ program ที่มีการ uses unit ดังกล่าวนั้น จะเข้าถึง Procedure/Function ได้เฉพาะส่วนที่เป็น interface เท่านั้น ไม่สามารถเข้าถึงส่วน implementation โดยตรงได้ ดังนั้นจึงต้องประกาศล่วงหน้าในตำแหน่งใต้คำว่า interface เสมอ โดยการประกาศจะไม่มีคำว่า forward ต่อท้ายเหมือนของ program อีก ดังตัวอย่างต่อไปนี้
+<sxh delphi;>
+unit Unit1;
+interface
+//Forward declaration
+procedure First;
+procedure Second;
+implementation
+procedure First;
+begin
+  writeln('Hello First');
+  Second;
+end;
+procedure Second;
+begin
+  writeln('Hello Second');
+end;
+end.
+</sxh> \\
+<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