Em algumas aplicações, pode ser necessário verificar se um determinado arquivo está presente no sistema antes de prosseguir com uma ação. No Delphi, essa verificação pode ser feita facilmente usando a função FileExists
da unit SysUtils
.
Como Funciona?
A função FileExists
retorna True se o arquivo existir e False caso contrário. Isso permite que você tome decisões com base na presença do arquivo.
Exemplo Prático
Passo 1: Configuração do Projeto
- Abra o Delphi e crie um novo projeto.
- Adicione um botão (TButton) ao formulário.
- No evento OnClick do botão, adicione o seguinte código:
uses
SysUtils, Dialogs;
procedure TForm1.Button1Click(Sender: TObject);
begin
if FileExists('C:\carta.doc') then
ShowMessage('O arquivo existe')
else
ShowMessage('O arquivo não existe');
end;
Explicação do Código
-
FileExists('C:\carta.doc')
verifica se o arquivo carta.doc está presente no diretório **C:**. - Se o arquivo existir, uma mensagem será exibida informando sua existência.
- Caso contrário, outra mensagem avisará que o arquivo não foi encontrado.
Melhorando a Interatividade
Se desejar permitir que o usuário selecione um arquivo para verificar, utilize um TOpenDialog:
uses
SysUtils, Dialogs;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TOpenDialog.Create(Self) do
try
if Execute then
begin
if FileExists(FileName) then
ShowMessage('O arquivo existe: ' + FileName)
else
ShowMessage('O arquivo não existe');
end;
finally
Free;
end;
end;
Considerações
-
FileExists
funciona apenas para arquivos. Para diretórios, utilizeDirectoryExists
. - Certifique-se de que o caminho do arquivo está correto e que você tem permissão para acessá-lo.
Conclusão
A verificação da existência de arquivos no Delphi é um processo simples, mas muito útil para diversos tipos de aplicações, como gerenciadores de arquivos, editores de texto e sistemas de backup.