Comando RESET

Delphi

07/09/2003

Pessoal !!!!!!

Na linha de código abaixo está dando erro no comando RESET

RESET(TXT);


var
TXT : TextFile;
Entrada : String;
Begin
// Exemplo para fazer conversão de arquivo DB para TXT:
AssignFile(TXT,Cliente.TXT);
Reset(TXT);
While not Eof(TXT) do
Begin
Readln(TXT,Entrada);
IbTable1.Insert;
ibTable1Cd_bairro.Value := Copy(Entrada,01,05);
ibTable1nm_bairro.Value := Copy(Entrada,06,50);
ibTable1.Post;
End;
CloseFile(TXT);


Roger_prog

Roger_prog

Curtidas 0

Respostas

Aristodemo

Aristodemo

07/09/2003

Me desculpe se eu falar bobagem...
Mas vc reparou na linha acima do reset ?
AssignFile(TXT,´Cliente.TXT´);

... 1 dica:
para arquivo de texto utilize:
Rewrite(Arquivo) ... Cria um novo Arquivo ou limpa o atual.


Abraços...


GOSTEI 0
Bacalhau

Bacalhau

07/09/2003

Colega Aristodemo, não confundas os comandos. Se o nosso colega
Roger_prog se enganar e fizer rewrite em vez de reset, a informação toda do TXT vai com os porcos. :(


GOSTEI 0
Aristodemo

Aristodemo

07/09/2003

Colega Aristodemo, não confundas os comandos. Se o nosso colega Roger_prog se enganar e fizer rewrite em vez de reset, a informação toda do TXT vai com os porcos. :(


Realmente... me desculpem! :oops:
Achei que se travava de write e não de um read

Abraços...


GOSTEI 0
Bacalhau

Bacalhau

07/09/2003

Um abraço das minhas barbatanas para o Aristodemo.

Desculpa a minha intervenção num pormenor, mas se o colega Roger_Prog tem informação importante no TXT e se NÃO TEM BACKUP :wink: , vai chorar bastante! :lol:

Abraço


GOSTEI 0
POSTAR