Ler um arquivo?
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
Curtidas 0
Respostas
Moonlight
05/12/2003
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.
GOSTEI 0
Wgm8
05/12/2003
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...
GOSTEI 0
Marcelo Saviski
05/12/2003
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´);
GOSTEI 0