Ler um arquivo?

05/12/2003

1

Preciso ler um arquivo texto, como faço isso sendo que só tenho uma parte do nome do arquivo: exemplo.

001-PANTERA COR DE ROSA.DDD

Eu só tenho o nome PANTERA COM DE ROSA

E sei tb que a extensão é sempre a mesma DDD

Como posso abrir-lo

Já tentei :

OpenFile(´C:\teste\´001-´+NomeArq+´.DDD´);

e não deu certo onde estou errando?


Responder

Posts

05/12/2003

Moonlight

eu uso assim:

declara uma:
var F: TextFile;

Caminho:= ´C:\teste\001-´+NomeArq+´.DDD´;

AssignFile(F,Caminho);
{$I-}
Reset(F);
{I+}


De qualquer forma, dê uma olhada na sua função ae... parece q tem uma aspas sobrando entre a \ e o 001.


Responder

05/12/2003

Wgm8

Diretorio:=´C:\Teste\001-´+NomeArq+´.DDD´;
AssignFile(F,Diretorio);
Reset(F);
nl:=0;
while not Eof(F) do
begin
ReadLn(F, Diretorio);
nl:=nl+1;
end;

Esta dando como arquivo não encontrado!!! O erro acontece quando chega na linha Reset(F), já tentei até sem a extenssão .DDD, mas ele não encontra, alguem me de um help...

Sem mais...


Responder
Só para desencargo de conciência, ftaça o seguinte teste:

Diretorio:=´C:\Teste\001-´+NomeArq+´.DDD´; 
if fileExist(Diretorio) then
  ShowMessage(´O Arquivo: ´ + Diretorio + ´ existe´)
else
  ShowMessage(´O Arquivo: ´ + Diretorio + ´ não existe´);



Responder