GARANTIR DESCONTO

Fórum Comando RESET #180416

07/09/2003

0

Delphi

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

Responder

Posts

07/09/2003

Aristodemo

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...


Responder

Gostei + 0

08/09/2003

Bacalhau

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. :(


Responder

Gostei + 0

08/09/2003

Aristodemo

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...


Responder

Gostei + 0

09/09/2003

Bacalhau

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar