COMO SELECIONAR em um combobox arq.txt e abrir!Preciso muito
COMO SELECIONAR em um combobox arq.txt e abrir!Preciso muito!!
Consigo selecionar no combobox os arquivos que estão na pasta e:\sist\arquivos\recebido\ conforme abaixo.
*****************selecionar arquivos no combobox*******************
procedure TF_receber.Button6Click(Sender: TObject);
var
sr: TSearchRec;
caminho:string;
select_arq:string;
begin
// definicao do diretorio e mascara dos arquivo a serem lidos
caminho:=´e:\sist\sist_fiat\arquivos\recebido\´;
select_arq:=´PEDFORNECED.R242D085*.*´;
with comboBox1.Items do
begin
//Limpa itens do combobox
Clear;
// posiciona no primeiro arquivo do diretório e carrega informacoes
if FindFirst(Caminho+select_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;
********************************************************
Não estou conseguindo é abrir este arquivo selecionado no combobox, tentei conforme abaixo mas me retorna File Not Found
***********abrir arquivo selecionado pelo combobox****************
procedure TF_receber.Button5Click(Sender: TObject);
var
arq1: textfile;
linha1,linha2: String;
caminho:string;
begin
caminho:=´e:\sist\arquivos\recebido\´;
AssignFile(arq1,ComboBox1.Items[ComboBox1.itemindex]);
Reset ( arq1 );
While not eof(arq1) do
begin
ReadLn ( arq1, linha1 );
ReadLn ( arq1, linha2 );
CloseFile ( arq1 );
edit2.text:=linha2;
end;
end;
*********************************************************
Por favor me ajude estou precisando muito!!
Obrigado!!!
Consigo selecionar no combobox os arquivos que estão na pasta e:\sist\arquivos\recebido\ conforme abaixo.
*****************selecionar arquivos no combobox*******************
procedure TF_receber.Button6Click(Sender: TObject);
var
sr: TSearchRec;
caminho:string;
select_arq:string;
begin
// definicao do diretorio e mascara dos arquivo a serem lidos
caminho:=´e:\sist\sist_fiat\arquivos\recebido\´;
select_arq:=´PEDFORNECED.R242D085*.*´;
with comboBox1.Items do
begin
//Limpa itens do combobox
Clear;
// posiciona no primeiro arquivo do diretório e carrega informacoes
if FindFirst(Caminho+select_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;
********************************************************
Não estou conseguindo é abrir este arquivo selecionado no combobox, tentei conforme abaixo mas me retorna File Not Found
***********abrir arquivo selecionado pelo combobox****************
procedure TF_receber.Button5Click(Sender: TObject);
var
arq1: textfile;
linha1,linha2: String;
caminho:string;
begin
caminho:=´e:\sist\arquivos\recebido\´;
AssignFile(arq1,ComboBox1.Items[ComboBox1.itemindex]);
Reset ( arq1 );
While not eof(arq1) do
begin
ReadLn ( arq1, linha1 );
ReadLn ( arq1, linha2 );
CloseFile ( arq1 );
edit2.text:=linha2;
end;
end;
*********************************************************
Por favor me ajude estou precisando muito!!
Obrigado!!!
Infohelp
Curtidas 0