Fórum Salvar ObjectList em Arquivo TXT #401356
20/05/2011
0
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.....
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)