Arquivos de inicialização de BDD
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
Curtidas 0
Respostas
Rômulo Barros
16/01/2004
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:
GOSTEI 0