Fórum Como importar dados de um arquivo TXT..! #214574

var
linha,matricula: string;
txt : TextFile;
begin
Table1.Open;
AssignFile(txt,´C:\arquivos de programas\Wizard Company\Gerenciador de Ponto\Movimento.txt´);// caminho onde esta o arquivo
reset(txt);
while not Eof(txt) do
begin
Readln(txt,Linha);
try
Matricula := copy(linha,1,9);
Table1.indexName := ´meuindex´;
if (minhatabela.FindKey([meuindex])) then
begin
minhatabela.edit;
matricula := minhatabela.meucampo.value;
minhatabela.post
end
else
faça_alguma_coisa;


Ps - Como o meu arquivo txt e muito grande e muito dividido eu primeiro coloco a parte do txt dentro de variaveis para depois salvar na minha tabela.

Espero ter ajudado - E muito bom partilhar, um dia postei esta mesma pergunta aqui e foi assim que aprendi...

Se o arquivo texto for do tipo delimitado, pode usar o componente PgCSV, procure no site Delphi Super Page [url]http://delphi.icm.edu.pl/[/url], já que o site oficial parece estar fora do ar.