[Assistant]

смотрите на события After... и Before... ну а если вообще невмоготу, то постучите в аське (в подписи), порассуждаем.

[sweet_lana]

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

смотрите на события After... и Before...

сделала вот так, пока пробую с последней строкой:

Код:

procedure TForm5.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
Adoquery1.Last;
ar:=deCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,60);//декодировать
ADOQuery1.Edit;
ADOQuery1.fieldByName('Наименование_товара').AsString:=ar;
ADOQuery1.Post;
end;

procedure TForm5.ADOQuery1AfterClose(DataSet: TDataSet);
begin
Adoquery1.Last;
ar:=enCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,60);//кодировать
ADOQuery1.Edit;
ADOQuery1.fieldByName('Наименование_товара').AsString:=ar;
ADOQuery1.Post;
end;

только вот не всегда корректно декодирует

[Janom]

Попробуй вместо:

Код:

enCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,60);
deCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,60)

Использовать:

Код:

enCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,17);
deCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,17)

Ну вообщем ограничение уменьшить... код шифратора на скорую руку набросал так что может переодически глючить....