COMO selecionar em um combobox arquivo a ser aberto!!!!!

Delphi

26/04/2004

COMO selecionar em um combobox arquivo a ser aberto!!!!!

estou usando hoje assim por serem arquivo que recebo diariamente e
com nomes diferentes, pensei que posso usar um combobox para
selecionar qual arquivo a ser aberto, veja baixo o que faço hoje:

//*****************************************************
var arq: textfile;
linha1,linha2,caminho,nome:string,nomelido:string;
begin
caminho:=´e:\sist\arquivos\recebido\´;
nome:=´PEDFORN.R242D085.1.´;
nomelido:=´lidoPEDFORN.R242D085.1.´;

data:=FormatDateTime(´mmddyy´, Date);
AssignFile(arq,caminho+nome+´.TXT´);
Reset ( arq );
ReadLn ( arq, linha1 );
//*****************************************************

Exemplo fazer com que o combobox mostre os arquivo texto que se
encontram na pasta sist, todos arquivos texto.
uso delphi 6.
Se puderem me passar exemplos fico grato!!

Obrigado!!!


Infohelp

Infohelp

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

26/04/2004

Tente assim:

procedure TForm1.Button1Click(Sender: TObject);
var
Rec : TSearchRec;
caminho, tparq:string;
begin
   caminho:=´c:\´;
   tparq:=´*.txt´;
      if SysUtils.FindFirst(caminho+tparq,faAnyFile, Rec) = 0 then
      begin
      repeat
      ComboBox1.Items.add(caminho+rec.Name);
      until SysUtils.FindNext(Rec) <> 0;
      end;
   SysUtils.FindClose(Rec);
end;



GOSTEI 0
Infohelp

Infohelp

26/04/2004

RESOLVI!! mas agora como fãço para abrir o arq selecionado?
Tentei fazer o que vc me passou mas só me mostrou o caminho no combobox, aí fiz conforme abaixo e Ok! resolvido, mas agora como uso o arquivo que será selecionado no combobox para abrir o mesmo.

Exemplo:
selecionei um arquivo que mostra no combobox
PEDFORN260404.TXT

como fãço para abrir ele?
uso o seguinte mas, com um nome fixo

begin
caminho:=´e:\sist\arquivos\recebido\´;
nome:=´PEDFORN260404.´;
data:=FormatDateTime(´mmddyy´, Date);
AssignFile(arq,nome+data+´.TXT´);
Reset ( arq );
ReadLn ( arq, linha1 );
ReadLn ( arq, linha2 );
CloseFile ( arq );


********************************usei assim e OK o combobox!!!**
procedure TF_receber.Button6Click(Sender: TObject);

var
sr: TSearchRec;
caminho,arq: String;
begin
// definicao do diretorio e mascara dos arquivo a serem lidos
caminho:=´e:\sist\arquivos\recebido\´;
Arq:=´PEDFORN*.*´;

with comboBox1.Items do
begin
//Limpa itens do combobox
Clear;

// posiciona no primeiro arquivo do diretório e carrega informacoes
if FindFirst(Caminho+Arq, faArchive, sr) = 0 then
begin
repeat
// adiciona nome do arquivo como se fosse um item do combobox
Add(sr.Name);
// movimenta para o proximo arquivo do diretorio
until FindNext(sr) <> 0;
// fecha lista de arquivo que foi criada na memoria
FindClose(sr);
end;
end;

end;
****************************************


GOSTEI 0
Fabio.hc

Fabio.hc

26/04/2004

Tente assim:

procedure TForm1.ComboBox1CloseUp(Sender: TObject);
begin
   AssignFile(arq,ComboBox1.Items[ComboBox1.itemindex]);
   Reset ( arq );
   ReadLn ( arq, linha1 );
   ReadLn ( arq, linha2 );
   CloseFile ( arq );
end;



GOSTEI 0
Infohelp

Infohelp

26/04/2004

no combobox mostra no nome do arqui aí seleciono e acusa o erro File Not Found
tentei abaixo!!


AssignFile(arq,ComboBox1.Items[ComboBox1.itemindex]);
Reset ( arq );
ReadLn ( arq, linha1 );
ReadLn ( arq, linha2 );
CloseFile ( arq );


GOSTEI 0
Infohelp

Infohelp

26/04/2004

Podem continuar me ajudando!!!!!


GOSTEI 0
POSTAR