Busca usando FindKey em uma tabela, não consigo1

Delphi

30/04/2003

Vou tentar ser bastante explícito:

Quando faço uma busca usando o findkey, procedo da seguinte maneira:

if TblDespesa2.FindKey([DBComboBox3.Text]) then
// se o texto digitado no DBCombobox3 for igual ao da Tabela TblDespesa2 então... Joga os valores da tabela para os devidos campos abaixo....
Begin
DBEdit9.Text := TblDespesa2.fieldbyname(´Conta_Debito´).asString;
DBEdit8.Text := TblDespesa2.fieldbyname(´Conta_Credito´).asString;
DBEdit10.Text := TblDespesa2.fieldbyname(´HP´).asString;
end; //Dessa maneira está beleza. Funciona!

Porém... Quando utilizo assim:

if DmGlobal.TblCadLaudo.FindKey([DBComboBox3.Text]) then
DBRichEdit1.Text := DmGlobal.TblCadLaudoDescricao.String;

//Jogando os Valores da Table TblCadlaudo(Que é do tipo Formated Memo definido no Database Desktop - Paradox) para um DbRichEdit.

o texto aparece todo maluco...

Porque sera ???

Me ajudem por favor... :cry: :cry: :cry: :cry:


Giovani

Giovani

Curtidas 0

Respostas

Mauromarques

Mauromarques

30/04/2003

Pelo que pude perceber tu estas utilizando um DBRichEdit para mostrar os dados de uma tabela. O Mais fácil e prático é lincar o campo dataset e datasource na tabela que contem o campo descrição. Os caracteres que aparecem são os caracteres de formatação do texto.


GOSTEI 0
Adilsond

Adilsond

30/04/2003

Experimente mudar para:

DBRichEdit1.Text := DmGlobal.TblCadLaudoDescricao.Value;


GOSTEI 0
Giovani

Giovani

30/04/2003

Experimente mudar para: DBRichEdit1.Text := DmGlobal.TblCadLaudoDescricao.Value;


Tentei assim e continua aparecendo os caracteres formatados. Porque será? esta dúvida permanece a 1 semana. de qualquer forma valeu... Se tiver mais alguma dica, agradeço.

Quanto a lincar os campos, é preciso lincá-los na tabela atual onde serão gravados os dados. O finKey seria para facilitar, pois quando o camarada escolhesse o tipo de exame, automaticamente seria mostrado o laudo inteiro no DbRichEdit.

Valeu...


GOSTEI 0
POSTAR