Fórum COMO selecionar em um combobox arquivo a ser aberto!!!!! #227864

Tente assim:

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;
****************************************

Tente assim:

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 );

Podem continuar me ajudando!!!!!