Work 1.3.2

:: Download ::

procedure TForm1.Button1Click(Sender: TObject); // ป้อนคำสั่งลงในปุ่ม + , - , *
var sumn1 : integer; // กำหนดตัวแปรเป็นชนิดข้อมูลแบบจำนวนเต็ม
begin
sumn1 := strtoint(edit1.Text) + strtoint(edit2.text); // ให้ตัวแปร sumn1 เก็บค่าจากการบวก หรือ ลบ หรือ คูณ ของจำนวนที่ 1 และ จำนวนที่ 2 ไว้
edit3.text := inttostr(sumn1); //แสดงผลลัพธ์ใน edit3.text
end;

procedure TForm1.Button4Click(Sender: TObject);
var answer : word ; // กำหนดตัวแปรเป็นชนิดข้อมูลแบบตัวอักษร
begin
answer := messageDlg('ต้องการเลิกงาน ?',mtconfirmation,[mbYes,mbNo],0); // ให้แสดง Dialog Box แสดงการยืนยันการออกจากโปรแกรม
if answer = mrYes then // ถ้ากด Yes
close // ให้ปิดโปรแกรม
else // ถ้ากด No
showmessage('Black to Program ..OK!'); // ให้แสดงข้อความตามกำหนด
end;