Consulta campo memo
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]
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
Curtidas 0
Respostas
Turbo Drive
16/01/2004
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
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
GOSTEI 0