Код:
DM.ADOTable1.First;
while not(DM.ADOTable1.Eof) do
begin
n:=DM.ADOTable1price.Value;
n:=Trunc(n*1.15);
DM.ADOTable1.Edit; //Сначала переводите таблицу в режим редактирования:
DM.ADOTable1price.Value:=n;
DM.ADOTable1.Post; //В финале подтверждаете запись данных в таблицу
DM.ADOTable1.Next;
end; |