Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Erro FileExists não funciona


FPimentel

Pergunta

Ola desenvolvedores.
Estou tentando passar um local definido anteriormente em uma variável para o comando FILEEXISTS e só está retornando como False, mesmo o arquivo em questão estando no local.
Segue função.

function TMenu.LE_TXT(LE_TXT: string): string;
Var LocalArq : string;
begin
LocalArq := Edit_Arquivo_TXT.Text+'\Config.txt';
{ O edit, recebe o endereço do local do arquivo na rede, testei de duas maneiras: }
{ \\Server\f\Sistema\Maquina1 }
{ S:\Sistema\Maquina1 }
if not FileExists(LocalArq) then
Begin
Application.Messagebox('Aquivo de configuração não encontrado ! - Finalizando Aplicação.....','AVISO', mb_ok+MB_ICONSTOP);
Application.Terminate;
{ Ele não retorna o valor True nem quando existe o arquivo }
End
Else
Begin

{ Não entra aqui NUNCA }

End
;

Espero que tenha sido claro e Obrigado pela atenção.
Att: Fabio

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

exemplo:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    function LE_TXT(LE_TXT: string):string;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.LE_TXT(LE_TXT: string): string;
Var LocalArq : string;
begin
   LocalArq := Edit1.Text;

   if not FileExists(LocalArq) then
      begin
         Application.Messagebox('Aquivo de configuração não encontrado ! - Finalizando Aplicação.....','AVISO', mb_ok+MB_ICONSTOP);
         Application.Terminate;

      end
   else
      begin
         showmessage('OK - Arquivo Encontrado !');

      end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   LE_TXT(trim(UpperCase(Edit1.text)));
end;

end.

OBS: Coloique o caminho completo para o arquivo no Edit1

EX:   C:\Pasta de Arquivos\Config.txt

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...