Adicionar TStringList em banco de dados

[luizf]

O caso é o seguinte:

Preciso fazer uma comparações de strings, caso a string seja compativel, então eu adiciono em uma TStringList.

Só que preciso adicioná-las em um banco de dados.

Supondo, que haja um DBGrid com duas colunas.

Em um caso comum, poderia colocar a primeira coluna como, por exemplo, Index e a segunda como Nomes.

No meu caso, a primeira coluna seria o Index (1, 2, 3, ..., N).

E a segunda coluna, Nomes, preciso que seja algo compativel com uma TStringList.

Para que, quando o estiver selecionado o Index 1, Nome mostre, por exemplo:

A

B

C

D

...

Index 2:

K

L

...

Index 3

J

X

W

...

E assim por diante.

Tentei de algumas maneiras, mas não está dando muito certo.

[Jhonas]

Tente usar o DBControlGrid

abraço

[luizf]

Tudo bem, tentei.

Mas como criar um campo no banco de dados para aceitar TStringList.

Tem as opções no BD para inteiro, real, string...

Tem os componentes que aceita TStringList, mas se fechar o programa e abrir de novo, vão estar em branco, porque a TStringList não foi salva no BD.

[Jhonas]

Mas como criar um campo no banco de dados para aceitar TStringList.

o campo na tabela podera ser de qualquer tipo, desde que voce faça a devida conversão de tipo

um exemplo bem simples para voce entender

procedure TForm1.Button1Click(Sender: TObject);
var
  A : TStringlist; i : integer;
begin
  A := TStringlist.create; // Cria instancia
  
  A.Clear; // Limpa o StringList

  A.Append('AAA1');  // adiciona um texto
  A.Append('BBB2');
  A.Append('CCC3');
  A.Append('DDD4');

 // contador para inserir o conteudo do stringlist na tabela
 for i := 0 to A.Count-1 do 
    begin
     Query1.Last;
     Query1.Append;
     Query1.Edit;

     // atribui ao campo da tabela o valor do indice do StringList
     Query1COD.Value := A.Strings[i];
     
     Query1.Post; // salva a tabela
    end;

  A.Free; // Libera memoria
end;

abraço