[Kis]

ребят еще вопрос.

Код:

procedure TPodrazdeleniyaForm.N2Click(Sender: TObject);
var
bm:string;
begin
 if application.MessageBox(pchar('Перевести в архив подразделение - '+dm.ADODSnamename.AsString+' ?'),'Внимание',mb_yesno) = idyes then
 begin
  bm:=dm.ADODSname.Bookmark;
  dm.ADODSname.Edit;
  dm.ADODSnamearch.AsInteger:=1;
  dm.ADODSname.Post;
  reset;
  dm.ADODSname.Bookmark:=bm;
 end;
end;

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

процедура перевода в архив. как написать обратную процедуру? т.е вывода из архива. при смене 1 на 0, выделение элемента красным цветом пропадает (архивные красного), но элемент все еще считается архивным и при "скрыть архивные" скрывается