Перемножить столбец

[Алекссс]

Здравствуйте! Скажите как можно реализовать такое - у меня на форме есть дбгрид и идит. в едит стоит сумма (с курсом доллара). в гриде список (наименование. еденица измерения, чена за еденицу и цена в долларах) вот вопрос как можно высчитать соимость в долларах всего столбца (цены в долларах) не изменя записи по одному а к примеру только тыком на кнопочку.

[pobedin]

что значит поле "цена за единицу" и "единица измерения" ?
если перевести в доллары по типу (валюта* на курс доллара), то примерно так:

table.first;
while table not eot do
begin
table.edit;
table.FieldByName('cena_dollar').asInteger:=table.FieldByName('cena').asInteger*strToInt(edit1.text);
table.post;
table.next;
end;

название полей и таблицы свои конечно же.
можно через sql. что за субд?

[Алекссс]

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

что значит поле "цена за единицу" и "единица измерения" ?
если перевести в доллары по типу (валюта* на курс доллара), то примерно так:

table.first;
while table not eot do
begin
table.edit;
table.FieldByName('cena_dollar').asInteger:=table.FieldByName('cena').asInteger*strToInt(edit1.text);
table.post;
table.next;
end;

название полей и таблицы свои конечно же.
можно через sql. что за субд?

СУБД аксесс
в общем у меня получается так что обычная сена за товар это cena и есть цена в долларах cena_dol и edit в котором стоит курс доллара, он часто меняется и в зависимости от его изменения мне надо пересчитать весь столбец cena_dol нажатием лоной кнопочки. значит получается так

ADOtable1.first;
while ADOtable1 not eot do
begin
ADOtable1.edit;
ADOtable1.FieldByName('cena_dol').asInteger:=ADOtable1.FieldByName('cena').asInteger*strToInt(edit1.text);
ADOtable1.post;
ADOtable1.next;
end;

так?
и что то на ADOtable1 not eot do ругается оО

Зачем вы отвечаете с цитированием всего предыдущего поста ? Чтоб "простыня" подлиннее получилась ?
Вы не видите кнопку справа от кнопки "Цитата" ?
Или вам почему-то не видно пустое окно редактора под последним сообщением ?
За оверквотинг у нас штрафуют, имейте это ввиду.
Дабы не нарушать правила раздела, внимательно их почитайте...

[Аватар]

1. while not ADOtable1.Eof do
2. Умножая цену в долларах на курс получаем цену в рублях (если курс допустим 28), но никак не цену в долларах
3. Если есть цена в рублях, то деля ее на курс (тот же 28) и получим цену в баксах

[Алекссс]

да да я это уже понял что делить надо! могу код скинуть другим может кому поможет спасибо

procedure TForm14.sBitBtn2Click(Sender: TObject);
begin
form14.preskurant.first;
while not form14.preskurant.Eof do begin
form14.preskurant.edit;
form14.preskurant.FieldByName('cena_doll').asInteger:=Round((form14.preskurant.FieldByName('cena').asInteger/strToInt(sDBedit1.text)*100)/100);
form14.preskurant.post;
form14.preskurant.next;
end;
end;

[pobedin]

если все правильно понял, то так:

while not ADOtable1.Eof do
begin
ADOtable1.edit;
ADOtable1.FieldByName('cena_dol').asInteger:=ADOtable1.FieldByName('cena').asInteger/StrToInt(edit1.text);
ADOtable1.post;
ADOtable1.next;
end;

[Аватар]

Полное недоумение. Цена Integer (что копеек не бывает?). Курс Integer - т.е. курса 28,15 по определению быть не может. Умножение и деление на 100 не понял. И напоследок цена в долларах тоже Integer?

[Алекссс]

да в том то и проблема как или точней что надо добавить что бы у меня выходила цена в долларах в занчении 2 знаков после запятой. а цена рублями)))) я с белорусии у нас нет копеек))) у нас тысячи))

[pobedin]

это просто пример

[Алекссс]

можешь помоч оптимизировать этот код