[Gogolinsky]

Написал такой код, который бы увеличивал все цены в бвзе данных на 15%

Код:

begin
  DM.ADOTable1.First;
   while not(DM.ADOTable1.Eof) do
    begin
     n:=DM.ADOTable1price.Value;
     n:=Trunc(n*1.15);
     DM.ADOTable1price.Value:=n;
     DM.ADOTable1.Next;
    end;
 end;

Админ: Пользуемся тегами для оформления кода!

Делфи ругается (dataset not in edit or insert mode).
Что это значит? Где включить edit mode датасета?

[Страдалецъ]

Код:

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;