Jump to content
Fórum Script Brasil
  • 0

Importar Arquivo Variavel


Allanrf
 Share

Question

quero que a pessoa coloca o número do cupom fiscal no meu programa, quando ela colocar eu vou no diretório "H:\mov03" e procuro nesse diretório o meu arquivo txt que tem o nome do meu cupom, eu não sei o nome do meu arquivo, ele sera identico ao nome que a pessoa colocar no meu programa, como faço isso?

preciso MUITO saber disso por favor...

Edited by Allanrf
Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0
quero que a pessoa coloca o número do cupom fiscal no meu programa, quando ela colocar eu vou no diretório "H:\mov03" e procuro nesse diretório o meu arquivo txt que tem o nome do meu cupom, eu não sei o nome do meu arquivo, ele sera identico ao nome que a pessoa colocar no meu programa, como faço isso?
Allanrf, não sei se entendi direito sua dúvida mas veja se seria algo assim:

- você tem uma tela onde o usuário digita em um TEdit o numero do cupom fiscal (vamos supor que seja EdNumCupon);

- quando o usuário clicar em um botão para executar a ação, você gera o nome do arquivo a procurar;

- verifica se o arquivo existe num diretório "H:\mov03" e existindo faz algo.

procedure TForm1.BtnAcaoClick(Sender :TObject);
var
  FileName :string;
begin
  FileName := 'H:\mov03\' + EdNumCupon.Text +'.txt';  
  if FileExists(FileName) then
  begin
    // faz alguma coisa aqui com o arquivo
  end;
end;

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...