Utilizar campos criptografados

[flaviogonzaga]

Bom dia a todos!!!!

Gostaria de saber se alguém sabe como utilizar campos da tabela do sistema USER_NOMES.
Essa tabela armazena os usuários cadastrados.
Preciso utilizar somente os nomes dos usuários em um combobox porém quando monto a lista ela vem criptografada.
Alguém sabe como desencriptografar somente o campo usuário???
Desde já agradeço.

Grande abraço!!!!

Flávio Gonzaga

[Gilberto]

Boa Tarde
Segue exemplos, espero que possa ajudar.

procedure TFormBoletoPreFixo.ComboBoxRecuperadorEnter(Sender: TObject);
begin
// Limpa ComboBox
ComboBoxRecuperador.Items.Clear;
// Seleciona Tabela de usuarios, posiciona no início e abre Loop
// --------------------------------------------------------------
TabGlobal.DUSER_NOMES.filtro.clear;
TabGlobal.DUSER_NOMES.filtro.ADD(' (User_Nomes.Recuperador = ' + QuotedStr('S') + ')');
TabGlobal.DUSER_NOMES.Atualizasql;
TabGlobal.DUSER_NOMES.Open;
TabGlobal.DUSER_NOMES.First;
//
while not TabGlobal.DUSER_NOMES.Eof do
begin
// Carrega ComboBox
ComboBoxRecuperador.Items.Add(Decript(TabGlobal.DUSER_NOMES.Usuario.Conteudo));

// Avança Registro
TabGlobal.DUSER_NOMES.Next;
end;

// Foca o Componente
ComboBoxRecuperador.SelectAll;
ComboBoxRecuperador.SetFocus;


end;

procedure TFormBoletoPreFixo.ComboBoxRecuperadorExit(Sender: TObject);
begin
if TabGlobal.DUSER_NOMES.Locate('USUARIO', Encript(UpperCase(ComboBoxRecuperador.Text)), []) then
vRecuperador := Decript(TabGlobal.DUSER_NOMES.Usuario.Conteudo)
else
vRecuperador := '';

end;

[flaviogonzaga]

Valeu Gilberto!!!

Era isso mesmo que eu precisava.

Grande abraço!!!

[lucianobarbosa]

Tentei usar o seu código porem não retorna nada de informação para o combox