บทที่หน่วย 1;
ส่วนต่อประสาน
ใช้
Windows, ข้อความ, sysutils, ตัวแปร, คลาส, กราฟิก, การควบคุม, รูปแบบ,
กล่องโต้ตอบ stdctrls;
พิมพ์
tform1 = คลาส (tform)
label1: tlabel;
label2: tlabel;
ปุ่ม 1: tbutton;
Edit1: Tedit;
button2: tbutton;
ขั้นตอน button1click (ผู้ส่ง: tobject);
ขั้นตอน button2click (ผู้ส่ง: tobject);
ส่วนตัว
{ประกาศส่วนตัว}
สาธารณะ
{ประกาศสาธารณะ}
จบ;
วาจา
Form1: TFORM1;
const pi = 3.14159;
การดำเนินการ
{$ r *.dfm}
ขั้นตอน tform1.button1click (ผู้ส่ง: tobject);
var r, c, s: จริง;
เริ่ม
ถ้า edit1.text = '' แล้ว
showMessage ('อินพุตว่างเปล่าโปรดกลับเข้ามาอีกครั้ง!') // หากไม่มีข้อมูลป้อน
อื่น
เริ่ม
r: = strtofloat (edit1.text);
c: = 2*pi*r;
s: = pi*sqr (r);
label2.caption: = 'ปริมณฑลของวงกลมคือ:'+floattoStr (c)+chr (13)+'พื้นที่คือ:'+floattostr (s);
จบ;
จบ;
ขั้นตอน TFORM1.Button2Click (ผู้ส่ง: TOBJECT);
เริ่ม
Form1.close;
จบ;
จบ.