Passa o arquivo para uma tstringlist, pega o nº de linhas dele, depois passa este valor para o max do progress bar, faz um laço while note of(arquivo) e em cada registro lido/gravado vc incrementa a propriedade position do progressbar....
<http://www.arwr.com.br> http://www.arwr.com.br André Luis da Silveira Desenvolvedor ARWR Sistemas -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Cristiano Rodrigo Gomes Enviada em: sexta-feira, 12 de agosto de 2005 08:15 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Progress Bar Bom dia caros colegas, se alguém puder me ajudar, como faria p/ colocar um progressbar na rotina abaixo de importação de arquivo txt p/ base de dados. Caso alguém possa me ajudar. Grato Suponha que voce tenha um arquivo chamado arq1.txt. Este arquivo contem dados com tamanhos fixos (tambem conhesido com formato SDF). O arquivo tem um codigo de 5 posicoes e uma descricao com 30 posicoes. E esta salvo na raiz da unidade C:. Um exemplo do conteudo do arquivo, Eu acrescentei pontos (.) para representar espacoes em branco: 00001PAPEL LAMINDADO............... 00002PAPEL A4 RESMA COM 500 FLS.... procedure Importar; var VArq: TextFile; VReg, VCod, VDescricao: string; begin // abre o arquivo AssignFile(VArq, 'c:\arq1.txt'); // seta arquivo para leitura reset(VArq); // loop para leitura do arquivo while not eof(VArq) do begin // lê uma linha e adiciona o conteudo ReadLn(VArq, VReg); // extrai informacao do registro lido VCod := copy(VReg, 1, 5); VDescricao := copy(VReg, 6, 30); // // coloque aqui os comandos para salvar a informacao no seu banco de dados // a informacao esta nas variaveis VCod e VDescricao. // end; //fecha o arquivo CloseFile(F); end; _________________________________________________________________ MSN Messenger: converse com os seus amigos online. http://messenger.msn.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] <mailto:[EMAIL PROTECTED]> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do <http://br.yahoo.com/info/utos.html> Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< 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
