txt para paradox

ABAIXO UM EXEMPLO DA TRANFERENCIA


// tabela 3
AssignFile ( arq, label3.caption ); // label3 é o nome do arquivo texto
Reset ( arq );
Readln ( arq, nm ); // leitura da primeira linha do arquivo texto
conta := 1;

while not Eof ( arq ) do
begin
// Processe a linha lida aqui.
// Para particionar a linha lida em pedaços, use a função Copy.
ReadLn ( arq, nm ); // leitura da segunda linha em diante do arq. txt
//showmessage(´´+nm+´´);
conta := conta +1;
If strtofloat(substr(nm,1,1)) = 9 then
begin
table3.append; // minha tabela PDX
table3.edit;
table3.post;
table3.FlushBuffers;
table3.edit;
table3idregi.Value := strtofloat(substr(nm,1,1));
table3nrocodpor.value := strtofloat(substr(nm,2,3));
table3nomeport.value := substr(nm,5,40);
table3dtmovim.value := strtofloat(substr(nm,45,8));
table3somaqtd.value := strtofloat(substr(nm,53,5));
table3somaval.value := strtofloat(substr(nm,58,18));
table3complreg1.value := substr(nm,76,250);
//table3complreg2.value := substr(nm,326,250);
//table3complreg3.value := substr(nm,576,21);
table3nrseqarq.value := conta;
table3.post;
table3.flushbuffers;
end;

end;
CloseFile ( arq );

table3.active := false;
table3.Active := true;
while not table3.eof do
begin
if table3idregi.value <> 9 then
begin
table3.delete;
end;
table3.next;
end;
table3.Refresh;
// FIM DA TABELA 3

Sérgio
password@netview.com.br