Fórum Arquivos de inicialização de BDD #207004
16/01/2004
0
Estou desenvolvendo um aplicativo em Delphi 6 , utilizo neste sistema um rotina que verificar o caminho do banco de dados em um arquivo .Txt, como faco para que se o arquivo não existir na pasta indicada a aplicação mostre uma mensagem e finalize.
Grato
Marcelo Nascimento.
Grato
Marcelo Nascimento.
Mlnascimento
Curtir tópico
+ 0
Responder
Posts
16/01/2004
Rômulo Barros
If(Not(FileExists(´C:\teste.txt´)))Then
Begin
messagedlg(´O arquivo não existe´,mterror,[mbOk],0);
application.Terminate; // Finaliza a aplicação
End; :twisted:
Begin
messagedlg(´O arquivo não existe´,mterror,[mbOk],0);
application.Terminate; // Finaliza a aplicação
End; :twisted:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)