COMO SELECIONAR em um combobox arq.txt e abrir!Preciso muito

Delphi

30/04/2004

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!!!


Infohelp

Infohelp

Curtidas 0
POSTAR