mostrar en dbgrid campos encriptados-desencriptados

[ecfisa]

Hola.

Si esos campos se guardaron cifrados, podes usar el evento OnGetText para descifrarlo y consecuentemente mostrarlos en el DBGrid.

Suponiendo que los campos se llamen NOMBRE y CLAVE sería:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    ...
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    ...
    procedure FormDestroy(Sender: TObject);
  private
    procedure DescifraGetText(Sender: TField; var Text: string; DisplayText: Boolean);
  public
  end;
...

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  tuDataSet.FieldByName('NOMBRE').OnGetText := DescifraGetText;
  tuDataSet.FieldByName('CLAVE').OnGetText  := DescifraGetText;
end;

procedure TForm1.DescifraGetText(Sender: TField; var Text: string; DisplayText: Boolean);
begin
  Text := Descifra(Sender.AsString); // Donde "Descifra" sería tu función de descifrado
end;

...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  tuDataSet.FieldByName('NOMBRE').OnGetText := nil;
  tuDataSet.FieldByName('CLAVE').OnGetText  := nil;
end;

Saludos