Erro Ao tentar ler o Arquivo
22/02/2006
0
A função que uso pra ler o arquivo e não ta com erro é:
AssignFile(ArqServidor, ´C:\ARQUIVO.TXT´);
Reset(ArqServidor);
Read(ArqServidor, LocalServidor);
CloseFile(ArqServidor);
e depois tento usar a seguinte para editar o arquivo e da o erro é:
Try
AssignFile (ArquivoServidor, ´C:\Arquivo.TXT´);
ReWrite(ArqTexto);
WriteLn(ArqTexto, LbLocal.Text);
except
On EconvertError do
Messagedlg(´ERRO: Arquivo Invalido´, mterror, [mbok],0);
end;
Alguem pode me ajudar a resolver este problema
Marcal
Posts
22/02/2006
Joaoshi
FlushFileBuffers(TTextRec(ArquivoServidor).Handle);
Espero ter ajudado.
22/02/2006
Kitsystem
Coloque ele em uma variavel
var iErro: Integer
iErro:=Ioresult
Case iErro of
//aqui vc pega no Help todos os erros, os codigos de erro vc acha até no Turbo pascal
23/02/2006
Marcal
24/02/2006
Marcal
24/02/2006
Michael
procedure TForm1.Button1Click(Sender: TObject); var Arquivo: TextFile; S: string; begin AssignFile(Arquivo, ´C:\Arquivo.txt´); try Reset(Arquivo); ReadLn(Arquivo, S); ShowMessage(S); finally CloseFile(Arquivo); end; end; procedure TForm1.Button2Click(Sender: TObject); var Arquivo: TextFile; S: string; begin S := ´Michael Benford´; AssignFile(Arquivo, ´C:\Arquivo.txt´); try Reset(Arquivo); WriteLn(Arquivo, S); finally CloseFile(Arquivo); end; end;
Há mais alguma coisa que vc esteja fazendo além disso?
[]´s
24/02/2006
Kitsystem
Tente outra maquina
24/02/2006
Marcal
24/02/2006
Martins
Colega, vc consegue modificar esse arquivo manualmente, digo pelo Windows Explorer, abrindo o Bloco de Notas?
Como estão as suas diretivas de seguraça do XP?
Pq o código não tem problema, o problema pode está com as permissões do USER.
Boa sorte!!
24/02/2006
Marcal
ai eu usei ai conseguia mais so via windows bloco de notas explorer
26/02/2015
Iprojetos Web
rfgd sdfg dfg dsfg dfg df gdfg[code][code]dsfg dsfg
Clique aqui para fazer login e interagir na Comunidade :)