Como Verificar se um Arquivo Existe no Delphi
Compartilhe :

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

  1. Abra o Delphi e crie um novo projeto.
  2. Adicione um botão (TButton) ao formulário.
  3. 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, utilize DirectoryExists.
  • 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.


Compartilhe :

Posts Similares