Como desligar acidentalmente é uma exceção a regra, você pode fazer uma
cópia do arquivo para outro arquivo e ler esse segundo arquivo, mantendo o
original intacto.
----- Original Message -----
From: "Logos" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Wednesday, August 16, 2006 6:15 PM
Subject: 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
