Não entendi no que essas sugestões vão ajudar num caso de desligamento da maquina, na verdade as suas sugestões ou vão perder todo o conteúdo ou vão dar na mesma.
Da pra usar a o principio da idéia do Stringlist, mas a cada linha adicionada vc chama o método savetofile, garantindo que não se perca nada. ---------------------- Rodrigo Othávio Farias -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Logos Enviada em: quarta-feira, 16 de agosto de 2006 18:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Garantir gravacao de arquivo TXT vc pode fazer esse processo numa stringlist, e depois salvar no arquivo. ou pode criar um arquivo texto temporario, e ao termino salvar o temporario como arquivo final. ----- Original Message ----- From: williamrocha To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 16, 2006 6:03 PM Subject: [delphi-br] Garantir gravacao de arquivo TXT Oi Pessoal, To com um problema serio. Gravando dados em um arquivo .TXT caso o computador seja resetado ou desligue acidentalmente ele perde dados. To fazendo assim: while condicao do begin ... AssignFile(F,'teste.txt'); Append(F); // Sei q o arquivo existe WriteLn(F,dados); Flush(F); CloseFile(F); Memo1.Lines.Add(dados); Application.ProcessMessages; ... end; Supondo q p/ dados passei a sequencia de 1 a 100 e vou mostrando na tela a medida q vou gravando, tipo: 1 2 3 4 ... Supondo q reset a maquina quando em 50, quando abro o arquivo texto soh tem 47 registros. O SO usado nas maquinas eh Windows 2000 ou XP. Qualquer dica serah super bem vinda. Obrigado a todos William Rocha ---------------------------------------------------------------------------- -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.405 / Virus Database: 268.10.10/419 - Release Date: 15/08/2006 [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html