~Project 1.3.2~

~Download Here~

ตัวอย่างในการใช้คำสั่งคิดเลข

การบวก

procedure TForm1.Button1Click(Sender: TObject);
var sumn1 : integer; < กำหนดให้ sumn1 เป็นจำนวนเต็ม
begin
sumn1 := strtoint(edit1.text)+strtoint(edit2.Text); < ให้นำค่าในedit1.text มาบวกกับค่าใน edit2.text
edit3.text :=inttostr(sumn1); < นำคำตอบมาใส่ใน edit3.text
end;

การลบ

procedure TForm1.Button2Click(Sender: TObject);
var sumn1 : integer; < กำหนดให้ sumn1 เป็นจำนวนเต็ม
begin
sumn1 := strtoint(edit1.text)-strtoint(edit2.Text); < นำจำนวนในedit1.text มาลบกับedit2.text

edit3.text :=inttostr(sumn1); < นำคำตอบมาใส่ใน edit3.text
end;

ถ้าต้องการจะเปลี่ยนเป็นการคูณก็สามารถเปลี่ยนเครื่องหมายได้โดยเปลี่ยนเครื่องหมายในตัวคำสั่งดังที่กล่าวไปแล้ว

นอกจากนี้ เราจะใช้คำสั่งเพื่อสร้างปุ่มปิดโปรแกรม โดยใช้ code ดังนี้

procedure TForm1.BitBtn1Click(Sender: TObject);
var answer : word; < กำหนดให้ answer เป็นคำ
begin answer :=messageDlg(คุณต้องการจะออกจากโปรแกรมหรือไม่',mtconfirmation,[mbyes,mbno],0); < ให้แสดงDialog Box ยืนยันการออกโปรแกรม โดยมรตัวเลือกคือ Yes หรือ No

if answer = mryes then < ถ้าตอบว่า yes
close < ให้ปิดโปรแกรม
else < ถ้าไม่ได้ตอบ yes
showmessage('Back To Program ..OK!'); < แสดงข้อความว่า Back To Program..OK!
end;