Erro ao abrir um arquivo TXT!!!
01/10/2003
0
Alguem tem idéia do que seja, tento abrir um arquivo com texto abaixo.
Porem mesmo existindo o arquivo ele me retorna que o arquivo não existe, a letra ´H´ é uma letra de rede.
NomeArq:=´H:\WINNER\STKMOV\´+ MidStr(DateToStr(Calendario1.DateTime),4,2)+LeftStr(DateToStr(Calendario1.DateTime),2)+´STMV.DBS´;
Try
AssignFile(MovVda , nomearq);
Reset(MovVda);
while not Eof(MovVda) do
begin
Read(MovVda, cod, desc, quant, preco, lixo);
end;
except
on EInOutError do
MessageDlg(´File I/O error.´, mtError, [mbOk], 0);
Porem mesmo existindo o arquivo ele me retorna que o arquivo não existe, a letra ´H´ é uma letra de rede.
NomeArq:=´H:\WINNER\STKMOV\´+ MidStr(DateToStr(Calendario1.DateTime),4,2)+LeftStr(DateToStr(Calendario1.DateTime),2)+´STMV.DBS´;
Try
AssignFile(MovVda , nomearq);
Reset(MovVda);
while not Eof(MovVda) do
begin
Read(MovVda, cod, desc, quant, preco, lixo);
end;
except
on EInOutError do
MessageDlg(´File I/O error.´, mtError, [mbOk], 0);
Host
Curtir tópico
+ 0
Responder
Posts
Clique aqui para fazer login e interagir na Comunidade :)