[Professor Farnsworth]

Сообщение от Horror

а если без запроса?
и как передать ST(Label6.Caption:= 'Сумма заказа составляет '+ st+'р.' в QRLabel ?

Ну если так болше нравится то пожалуйста.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var ST: string;
    s: real;
begin
  Table1.First;
  S:=0;
  While Not (Table1.Eof) do
  begin
    S:= S+Table1.fieldByName('Stoimost').AsFloat;
    Table1.Next;
  end;
  s:=s+StrToFloat(edit1.text);
  ST:= FloatToStr(s);
  STR(S:12:2, st);
  Label6.Caption:= 'Сумма заказа составляет  '+ st+'ð.';
  Label6.Visible:= True;
end;