[LEONENKOV2006]

Сообщение от Professor Farnsworth

Конечно будет Это уже детали

Код:

if edit.text<>'' then
begin
  s:=s+StrToFloat(edit1.text);
  ST:= FloatToStr(s);
  STR(S:12:2, st);
  Label6.Caption:= 'Сумма заказа составляет  '+ st+'р.';
  Label6.Visible:= True;
end
else 
begin
  ST:= FloatToStr(s);
  STR(S:12:2, st);
  Label6.Caption:= 'Сумма заказа составляет  '+ st+'р.';
  Label6.Visible:= True;
end;

можно упростить :

Код:

if edit.text<>'' then s:=s+StrToFloat(edit1.text);
  ST:= FloatToStr(s);
  STR(S:12:2, st);
  Label6.Caption:= 'Сумма заказа составляет  '+ st+'р.';
  Label6.Visible:= True;