E se voce exportar no seu arquivo produtos.txt apenas os produtos que forem alterados não daria certo?
Ou coloque um Campo I - Inclusao, A - Alteracao - E - Exclusao, para voce saber do que se refere a operacao. Espero que te ajude. Guilherme ----- Original Message ----- From: "Adriano ( Micro center )" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Cc: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <delphi-br@yahoogrupos.com.br>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Monday, October 10, 2005 5:08 PM Subject: [delphi-boleto] Importação de Tabelas (Atualização de Tabela com Aqrivos.TXT ) Olá pessoal. Gostaria de uma ajudinha aqui,, Eu estou com um Problema na atualização de minhas tabelas ex; Eu estou usando esta função abaixo para exportar o conteúdo de uma tabela para um arquivo Produtos.txt , e ao mesmo tempo importar um determinado arquivo Produtos txt para uma tabela , até ai tudo bem , mas o que esta acontecendo é o seguinte se eu mandar importar o conteúdo do arquivo Produtos.txt para a tabela ele importa certo, mas se eu mandar novamente ele importa tudo de novo ele aumentando a tabela como se ela estivesse vazia . Por ex; O tenho um arquivo Produtos.txt com 1000 linha, a tabela aceita e fica ok.. mas se tentar importar novamente o mesmo Produtos.txt ela importa o e a tabela fica com 2000 registros , como faço para criar um função para a tabela receber somente o que foi alterado , tipo se eu mandar importar o Produtos.txt a função verifica e só atualiza a tabela somente no campo que foi alterado e não deixando importar todos registros tipo se eu abrir o Produtos.txt e colocar uma (.) virgula ele vai correr a tabela inteira e alterar somente o campo que esta com a virgula.... Obrigado, e Agradeço desde já... Procedure TForm1.Button2Click(Sender: TObject); var Txt : TextFile; Entrada : String; begin Assignfile(Txt,'Clientes.Txt'); Reset(Txt); While not Eoln(Txt) do begin Readln(Txt,Entrada); Client_Estoque.Insert; Client_Estoque.FieldByName('COD_BARRAS').Value:=Copy(Entrada,03,6); Client_Estoque.FieldByName('COD_INTERNO').Value:=Copy(Entrada,03,6); Client_Estoque.FieldByName('NOM_PRODUTO').Value:= Copy(Entrada,6,50); Client_Estoque.ApplyUpdates(-1); end; CloseFile(Txt); Button3.Enabled := True; end; procedure TForm1.Button3Click(Sender: TObject); Var F: TextFile; begin AssignFile(F,'Clientes.txt'); Rewrite(F); Client_Estoque.First; While not Client_Estoque.Eof do begin Writeln(F,Client_Estoque.FieldByName('COD_BARRAS').Value+Client_Estoque.FieldByname('NOM_PRODUTO').Value+Client_Estoque.FieldByName('PRECO_REAL').Value); Label1.Caption:= 'Total de Registro Apagado..'+ IntToStr(Client_Estoque.RecordCount); Client_Estoque.Next; end; CloseFile(F); Button2.Enabled := True; Button3.Enabled := False; end; [As partes desta mensagem que não continham texto foram removidas] Delphi-Boleto - Componentes para geração de boleto bancário em Delphi. Criador/Moderador: Genilton Barbosa Visite meu site: www.gbimoveis.com/genilton - Dicas de programação em Delphi, diversos componentes grátis e muito mais Para enviar mensagens: [EMAIL PROTECTED] Para cancelar assinatura: [EMAIL PROTECTED] Site do grupo: http://www.yahoogrupos.com.br/groups/delphi-boleto Para fazer download do componente, visite o meu site: http://www.gbimoveis.com/genilton PARTICIPE DE NOSSAS PESQUISAS DE OPINIÃO As pesquisas ajudam a entender melhor as opiniões e necessidades dos membros do grupo. Dê o seu voto. Para acessar as pesquisas visite o endereço www.yahoogrupos.com.br/groups/delphi-boleto/polls Links do Yahoo! Grupos __________ Informação do NOD32 IMON 1.1248 (20051010) __________ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html