Salvar ObjectList em Arquivo TXT

Delphi

20/05/2011

Pessoal preciso de ajuda..... Tenho uma classe e um object list, como faço para enviar esse object list para um arquivo txt ?   Veja meu codigo abaixo:   ListaNfEntrada := TObjectList.Create;
  NfEntrada := TNfEntrada.Create;   with NfEntrada do
  begin
    IdForn_01  := 1;
    DocForn_02 := 123;
    CodInt_03  := 123456;
  end;   ListaNfEntrada.Add(NfEntrada);
  NfEntradaDaLista := TNfEntrada.Create;
  NfEntradaDaLista := TNfEntrada(ListaNfEntrada.Items[0]);   caminho := 'C:\NfEntrada.txt';
  AssignFile(arquivo, caminho);
  ReWrite(arquivo);   s:= ?????
  WriteLn(arquivo, s);
  CloseFile(arquivo);       Valew pessoal.....
Suprasys Inteligente

Suprasys Inteligente

Curtidas 0
POSTAR