~Project 1.3.5~

~Download Here~

จะใช้คำสั่งคล้ายๆกับที่แล้วมาเช่นในการบวกเลข

procedure
TForm1.Button1Click(Sender: TObject);
var sumn1 : real; < กำหนดให้ sumn1 เป็นจำนวนจริง
begin
sumn1 := strtofloat(edit1.text)+strtofloat(edit2.Text); < นำจำนวนใน edit1.text มาบวกกับ edit2.text

edit3.Text :=floattostr(sumn1); < แสดงคำตอบใน edit3.text
end;