Ler um arquivo?
05/12/2003
0
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?
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?
Wgm8
Curtir tópico
+ 0
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.
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...
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
05/12/2003
Marcelo Saviski
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
Clique aqui para fazer login e interagir na Comunidade :)
