Проблемы с суммированием в БД

[Екатерина20]

Ребят, у меня какие- то проблемы с суммированием. Заметила только сейчас, что он неправильно считает.
У меня БД DBGridEh и в 1 столбце данные, которые надо суммировать и вывести в Эдит. Я заметила , что перестает он считать когда попадаются целые числа (У меня и десятичные и целые), такое впечатление, что подсчитывает количество строк. Что здесь не правильно?

//Подсчет суммы часов
procedure TForm4.Edit1Click(Sender: TObject);
  var s: real;
      n: integer;
  begin
    s:=0;
    MemTableEh2.First;
    for n:=1 to MemTableEh2.RecordCount
    do begin
    s := s + MemTableEh2.FieldByName('Трудоемкость max количество').AsFloat;
   MemTableEh1.Next;
    Edit1.Text :=FloatToStr(s);
    end;
  end;

Говорят, что это правильный код. Но у меня он не работает, умножает на 3 каждую новодобавленную строку. Дело в том, что у меня это временная таблица с заказами, куда добавляется новый заказ, а потом должен посчитать, и вывести в Edit. И к тому же числа там и десятичные и целые.

Ребят вот я дура столько времени ищу решение, и сейчас только заметила у меня MemTable разные написаны)))

А, у меня еще вопрос вот мне теперь надо перемножить этот результат на 500. С целыми числами этот код работает, а с десятичными нет, как его нужно изменить?

procedure TForm4.Edit2Click(Sender: TObject);
  var
    a,b:integer;
  begin
    a:=StrToInt(Edit1.Text);
    b:=StrToInt('500');
    Edit2.Text:=IntToStr(a*b);
  end;

[denisbrain]

Сообщение от Екатерина20

Ребят вот я дура столько времени ищу решение, и сейчас только заметила у меня MemTable разные написаны)))

А, у меня еще вопрос вот мне теперь надо перемножить этот результат на 500. С целыми числами этот код работает, а с десятичными нет, как его нужно изменить?

procedure TForm4.Edit2Click(Sender: TObject);
  var
    a,b:integer;
  begin
    a:=StrToInt(Edit1.Text);
    b:=StrToInt('500');
    Edit2.Text:=IntToStr(a*b);
  end;

а SQL запросы вида

select sum((polea+poleb)*poleC from Table where Table.PoleD=<значение>

[Екатерина20]

К чему этот запрос О-о? У меня не таблицы перемножить, а просто Эдиты)

[Yurk@]

Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text))

[ych_del]

К чему этот запрос О-о? У меня не таблицы перемножить, а просто Эдиты)

Это тебе для примера написали. И кстати - так гораздо быстрее работать будет - СУБД тебе сразу отдаст сумму, не придется фетчить все записи. В твоем случае будет выглядеть примерно вот так:

select sum("Трудоемкость max количество")*500 as S from TABLE

А потом вот так:

Edit2.Text:=FloatToStr(FieldByName('S').AsFloat);

[Екатерина20]

Всем спасибо, сделала по примеру Yurk@, все работает)