(Resolvido) Converter variavel TstringList para Blob

[nilegor]

Olá, preciso gravar algumas informações que estão na variável (arquivo) do tipo TStringList para o banco de dados, no banco de dados esta como Blob. Estou com dificuldades para fazer essa conversão. Veja o código:

var

arquivo:TStringList;

begin

arquivo := TSTringList.Create;

arquivo.Add('.........');

ClientDataSet_teste.Insert;

ClientDataSet_teste.FieldByName('info'). .. >> depois disso, como poderia fazer para que o ClientDataSet receba o valor da variável arquivo !

ClientDataSet_teste.post;

ClientDataSet_teste.ApplyUpdates(0);

Editado Maio 16, 2015 por Jhonas

[Jhonas]

Se 'info' for um campo tipo Blob

var

  arquivo:TStringList;
begin
  arquivo := TSTringList.Create; 
  arquivo.Add('.........');
  ClientDataSet_teste.Insert;
  ClientDataSet_teste.FieldByName('info').Assign(arquivo);

  ClientDataSet_teste.post;
  ClientDataSet_teste.ApplyUpdates(0);

abraço

[nilegor]

Jhonas, muito abrigado, deu certo, perfeito. Poderia só me esclarecer qual foi a função exata do 'Assign' ?

[Jhonas]

é usado para fazer cópias... basta simplesmente declarar uma referência do tipo apropriado e, em seguida, atribuir isso ao objeto que está sendo copiado através de um comando de atribuição ( Assign )

ou

é um método utilizado para copiar propriedades semelhantes em objetos diferentes, como TStringList e TStrings, e também fazer uma nova cópia de dados de objetos em vez de fazer dois pontos de referências do objeto para a mesma instância

exemplo:

Lista2:= TStringList.Create;
Lista1:= TStringList.Create;
Lista2.Add('Meu Texto');
Lista1:= Lista2;

Usando Assign, uma cópia dos dados Lista2 será movida para um local separado que já está apontada por List1:

Lista2:= TStringList.Create;
Lista1:= TStringList.Create;
Lista2.Add('Meu Texto');
Lista1.Assign(Lista2);

Neste caso, liberando ou modificado qualquer uma das instâncias (Lista1, Lista2) não afeta a outra.

abraço