Para o pessoal do Clube
28/04/2003
0
ola poderiam me ajudar com este codigo...
Tenho um arquivo TXT de nome Prods.TXT com 19000 itens +-
os 9 primeiros caracteres sao o CODIGO do produto, e os restante 40 caracteres sao a DESCRICAO DO PRODUTO, preciso enviar estes dados para uma tabela Prods.DBF com a estrutura:
Filde Name Type Size
E_CODPRO C 9
E_DESPRO C 40
implementei o codigo abaixa, mas os problemas que tenho que que nao consigo testar se o arquivo existe e tambem a tabela...
obrigado...
procedure TForm1.Button2Click(Sender: TObject);
var
F: TextFile ;
I: Integer ;
begin
AssignFile(F,´c:\testeUSI\Prods.TXT´) ;
Rewrite(F) ;
Table1.First ;
while not Table1.Eof do
begin
Writeln(F,Table1E_CodPro.Value+Table1E_DesPro.Value) ;
Table1.Next ;
end;
CloseFile(F) ;
end;
Tenho um arquivo TXT de nome Prods.TXT com 19000 itens +-
os 9 primeiros caracteres sao o CODIGO do produto, e os restante 40 caracteres sao a DESCRICAO DO PRODUTO, preciso enviar estes dados para uma tabela Prods.DBF com a estrutura:
Filde Name Type Size
E_CODPRO C 9
E_DESPRO C 40
implementei o codigo abaixa, mas os problemas que tenho que que nao consigo testar se o arquivo existe e tambem a tabela...
obrigado...
procedure TForm1.Button2Click(Sender: TObject);
var
F: TextFile ;
I: Integer ;
begin
AssignFile(F,´c:\testeUSI\Prods.TXT´) ;
Rewrite(F) ;
Table1.First ;
while not Table1.Eof do
begin
Writeln(F,Table1E_CodPro.Value+Table1E_DesPro.Value) ;
Table1.Next ;
end;
CloseFile(F) ;
end;
Martelato
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)