![]() |
|
#1
|
|||
|
|||
![]() Имеется процедура которая считает сумму цен в поле Цена
Код:
procedure TForm6.Button1Click(Sender: TObject); var ST: string; s: integer; begin Table1.First; S:=0; While Not (Table1.Eof) do begin S:= S+Table1Stoimost.Value; Table1.Next; end; ST:= FloatToStr(s); STR(S:12, st); Label6.Caption:= 'Сумма заказа составляет '+ st+'р.'; Label6.Visible:= True; end; Как к этой сумме прибавить значение, которое вводится в Edit1 который находится на этой же форме? PS... у меня чего-то прибавляет значение в три раза больше чем введенное в Edit |