Fórum Ler arquivo texto ? #210197

procedure
var
f: TextFile;
Linha: String;
begin

AssignFile(f,´C\ARQUIVO.TXT´);

Reset(f); //abre o arquivo para leitura



While Not Eof(f) Do
begin

Readln(f, Linha); // Lê do arquivo e desce uma linha.
// O conteúdo lido é transferido para a variável Linha

Table1.Append;
Table1.FieldByName(´RE_NUME´).AsString := Copy(Linha,7,6);
Table1.FieldByName(´RE_NCLI´).AsString := Copy(Linha,17,12);
Table1.Post;

//Memo1.Lines.Add(Linha); // Adiona os dados no MEMO, caso queira usar um memo.

end;

CloseFile(f); // fecha o arquivo

End;

Caro colega, se vc poder me mandar esse arquivo de Cep´s no formato txt, para meu E-mail, lhe agradeço.
E-mail: p.ancora@terra.com.br