1 Como excluir (remover, deletar) um arquivo usando Delphi Qua Fev 16, 2011 7:47 am
mistiyoda
Membro
Em algumas situações nossas aplicações precisam excluir arquivos. Para isso o Delphi nos fornece a função DeleteFile(), presente na unit SysUtils. Esta função recebe o caminho e nome do arquivo a ser excluído e retorna true se a exclusão foi feita com sucesso e false em caso contrário.
Veja um trecho de código no qual excluímos um arquivo chamado "dados.txt":
procedure TForm1.Button1Click(Sender: TObject);
var
arquivo: string;
begin
// diretorio e nome do arquivo
arquivo := 'C:\arquivo de codigos\dados.txt';
// vamos remover o arquivo
if DeleteFile(arquivo) then
ShowMessage('O arquivo foi excluído com sucesso')
else
ShowMessage('Não foi possível excluir o arquivo');
end;
Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.
Palavras-chaves:
situações, Em, codigos\dados, \arquivo, > Para, Delphi, , arquivos, Esta, escrita, possível, fornece, no, Não, se, Sender, chamado, nome, um, isso, nossas, ; var , string; begin , diretorio, ; end; , txt, com, > , ; , excluído, Para, excluímos, retorna, SysUtils, arquivo , deletar, TObject, nos, unit, "dados, procedure, usando, TForm1, função, fins, trecho, O, presente, código, ser, if, false, precisam, > Veja, C, 2009, vamos, then , arquivo, Button1Click, excluir, =, ShowMessage, de, caso, a, qual, remover, do, caminho, dica
Veja um trecho de código no qual excluímos um arquivo chamado "dados.txt":
procedure TForm1.Button1Click(Sender: TObject);
var
arquivo: string;
begin
// diretorio e nome do arquivo
arquivo := 'C:\arquivo de codigos\dados.txt';
// vamos remover o arquivo
if DeleteFile(arquivo) then
ShowMessage('O arquivo foi excluído com sucesso')
else
ShowMessage('Não foi possível excluir o arquivo');
end;
Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.
Palavras-chaves:
situações, Em, codigos\dados, \arquivo, > Para, Delphi, , arquivos, Esta, escrita, possível, fornece, no, Não, se, Sender, chamado, nome, um, isso, nossas, ; var , string; begin , diretorio, ; end; , txt, com, > , ; , excluído, Para, excluímos, retorna, SysUtils, arquivo , deletar, TObject, nos, unit, "dados, procedure, usando, TForm1, função, fins, trecho, O, presente, código, ser, if, false, precisam, > Veja, C, 2009, vamos, then , arquivo, Button1Click, excluir, =, ShowMessage, de, caso, a, qual, remover, do, caminho, dica