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); end;
...
procedure TForm1.FormDestroy(Sender: TObject);
begin
tuDataSet.FieldByName('NOMBRE').OnGetText := nil;
tuDataSet.FieldByName('CLAVE').OnGetText := nil;
end;
Saludos