根據商品的單價創建字典

程序？TForm1.btnCalClick（發件人:？to subject）；

定義變量

總和:？擴展；

開始

總和？:=?StrToFloatDef（EDT 1。文本，？0）* StrToFloatDef（ed T2。文本，？0)?+

StrToFloatDef（ed T3。文本，？0)*?StrToFloatDef（ed T4。文本，？0)?+

StrToFloatDef（ed t5。文本，？0）* StrToFloatDef（ed T6。文本，？0);

lbl1。字幕？:=?float tostr（sum）；

結束；