Para o pessoal do clube delphi - socorro
13/05/2003
0
implementei este codigo para transferir um TXT de 19000 itens p/ uma tabela SQL, na minha maquina o codigo foi eficiente, mas na maquina que utilizo no trabalho nao, será que pode ser melhorado este código? e mais, o usuario clica no botao para atualizar a tabela, preciso que qdo carregar o programa ele verifica se o arquivo TXT foi alterado se sim atualiza a tabela sem precisar da acao do usuario... obrigado
Edmar :idea:
procedure TfrmPedidos.CopiaTXT(Sender: TObject);
var
TXT : TextFile ;
Entrada : String ;
begin
AssignFile(TXT, ´C:\USIProjetos\Tabelas\Prods.TXT´);
Reset(TXT) ;
while not Eoln(TXT) do
begin
Readln(TXT,Entrada) ;
DMGeral.ADOtblProduto.Insert ;
DMGeral.ADOtblProdutoCod_prod.Value := Copy(Entrada,01,09) ;
DMGeral.ADOtblProdutoNome_prod.Value := Copy(Entrada,10,40) ;
DMGeral.ADOtblProduto.Post ;
end;
CloseFile(TXT) ;
btnCopia.Enabled := False ;
end;
Edmar :idea:
procedure TfrmPedidos.CopiaTXT(Sender: TObject);
var
TXT : TextFile ;
Entrada : String ;
begin
AssignFile(TXT, ´C:\USIProjetos\Tabelas\Prods.TXT´);
Reset(TXT) ;
while not Eoln(TXT) do
begin
Readln(TXT,Entrada) ;
DMGeral.ADOtblProduto.Insert ;
DMGeral.ADOtblProdutoCod_prod.Value := Copy(Entrada,01,09) ;
DMGeral.ADOtblProdutoNome_prod.Value := Copy(Entrada,10,40) ;
DMGeral.ADOtblProduto.Post ;
end;
CloseFile(TXT) ;
btnCopia.Enabled := False ;
end;
Martelato
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)