Apagar tudo de arquivo de texto
15/05/2003
0
Pinguço
Posts
15/05/2003
Adriano Santos
var
F : TextFile;
begin
{Deleta se existir}
if FileExists(´C:\Temp\Teste de Exclusao\MeuArquivo.txt´) then DeleteFile(´C:\Temp\Teste de Exclusao\MeuArquivo.txt´);
AssignFile(F, ´C:\Temp\Teste de Exclusao\MeuArquivo.txt´);
Rewrite(F);
ShowMessage(´Arquivo Criado´);
CloseFile(F);
end;
15/05/2003
Dcport
(supondo que TxtFileName: string contenha o nome do arquivo)
uses
Windows;
...
procedure...
var
FileHnd: Cardinal;
begin
FileHnd := CreateFile(
PAnsiChar(TxtFileName),
GENERIC_WRITE,
0,
nil,
TRUNCATE_EXISTING,
FILE_ATTRIBUTE_NORMAL,
nil);
CloseHandle(FileHnd);
end;
A chamada a CreateFile vai falhar se o arquivo não existir. Para que ela funcione sempre, use CREATE_ALWAYS no lugar de TRUNCATE_EXISTING.
-- dcport
15/05/2003
Adriano Santos
16/05/2003
Pinguço
Foi isso mesmo que eu fiz eu botei pra apagar e recriar... Vlw ai :)
17/05/2003
Dcport
Por isso recomendo utilizar as funções da API Windows ou as classes de streaming do Delphi para lidar com arquivos.
-- dcport
Clique aqui para fazer login e interagir na Comunidade :)