GARANTIR DESCONTO

Fórum Consulta campo memo #206941

16/01/2004

0

Pessoal fiz uma consulta em delphi usando sql.
O campo no interbase é um campo do tipo ´MEMO´
e no delphi é um Tlistbox.
Codigo e a consulta esta funcionando:
// Início

Form2.ListBox.Items.Clear;
DataModule2.busca.First;
while not DataModule2.busca.Eof do
begin
Form2.Listbox.Items.add(DataModule2.busca.FieldValues[´Titulo´]);
DataModule2.busca.Next;
end;
Form2.ShowModal;

// Fim

Problema: No ListBox em vez de aparecer o texto que contém no MEMO aparece uma linha: {\rtf1\ansi\deff0\deftab720{\fonttb{\f0\fswiss Ms Sans Serif;}...

[b:af47ab10e3]Título editado pelo Moderador (AZ) - Removido: ´URGENTE!!´[/b:af47ab10e3]


Mrmario

Mrmario

Responder

Posts

16/01/2004

Turbo Drive

Não tenho certeza, mas pode ser a forma que vc passa para o seu listbox. Tente:

Form2.ListBox.Items.Clear;
DataModule2.busca.First;
while not DataModule2.busca.Eof do
begin
[b:059561d902]Form2.Listbox.Items.add(DataModule2.busca.fields[0].AsString); [/b:059561d902]DataModule2.busca.Next;
end;
Form2.ShowModal;

Onde o zero de DataModule2.busca.fields[0].AsString representa o índice de sua tabela. Se o seu campo memo for o 1º ele tem índice 0, se for o 2º tem índice 1, ....

Espero ter ajudado


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar