Pois é Alexandre, essa era a minha dúvida se traria a ordem de acordo com a da pasta.
Era justamente o que queria Caso resolvido! Obrigado a todos! -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Alexandre Enviada em: sexta-feira, 9 de abril de 2010 15:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] função findfirst boa tarde, não sei se é isso que você quis dizer, mas... a ordem que o FindFirst tras os arquivos é a ordem em que foram gravados no diretório. Para ordenar, grave os arquivos num stringlist e use a propriedade de ordenação do mesmo. Depois faça o loop no StringList e obterá o resultado desejado. Alexandre Em 8 de abril de 2010 08:16, Ralp Alves Bezerra <ral...@gmail.com> escreveu: > > > Bom dia nobres colegas. > > Estou utilizando esta rotina para pegar as imagens de uma pasta e salvar no > banco firebird. > > if FindFirst('C:\G2DOC\G2Imagem\*.jpg', faAnyFile, Arq) = 0 then > > begin > > repeat > > DM.cds_TCM_A.Insert; > > dbiImagem.LoadFromFile('C:\G2DOC\G2Imagem\'+Arq.Name); > > //Incrementa número da página > > Inc(Pag); > > //Grava Número da página > > DM.cds_TCM_APAGINA.Text :=IntToStr(Pag); > > //Grava nome do arquivo > > DM.cds_TCM_ANOME_ARQUIVO.Text > :=frmDigitalizaTCM.Label13.Caption+IntToStr(Pag)+'.jpg'; > > //Grava Caminho do Arquivo > > DM.cds_TCM_ACAMINHO.Text :=Dir; > > //Grava sigla do documento > > DM.cds_TCM_ASIGLA_DOCUMENTO.Text > :=DM.cds_TCMSIGLA_DOCUMENTO.Text; > > //Grava Codigo entidade > > DM.cds_TCM_ACODIGO_ENTIDADE.Text > :=DM.cds_TCMCODIGO_ENTIDADE.Text; > > //Grava Cod. Unid. Administrativa > > > DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DM.cds_TCMCOD_UNID_ADMINISTRATIVA. > Text; > > //Grava Exercicio > > DM.cds_TCM_AEXERCICIO.Text :=DM.cds_TCMEXERCICIO.Text; > > //Grava Unidade Gestora > > DM.cds_TCM_AUNIDADE_GESTORA.Text > :=DM.cds_TCMUNIDADE_GESTORA.Text; > > //Grava Nome Documento > > DM.cds_TCM_ANOME_DOCUMENTO.Text > :=DM.cds_TCMNOME_DOCUMENTO.Text; > > //Informa se arquivo foi digitalizado > > DM.cds_TCM_ADIGITAL.Text :='1'; > > //Informa o anexo do demonstrativo > > DM.cds_TCM_AANEXOS.Text > :=frmDigitalizaTCM.DBText5.Caption; > > DM.cds_TCM_A.Post; > > DM.cds_TCM_A.ApplyUpdates(0) > > until FindNext(Arq) <> 0; > > FindClose(Arq); > > end; > > Porém, quando vou verificar a seqüência da pasta com a importação dos > arquivos no banco firebird, noto que alguns arquivos saem da ordem correta. > > Será que a rotina acima está correta? Alguém poderia me dar uma dica? > > Estou utilizando Firebird 2.1 e Delphi 7. > > Abraços. > > Ralp Alves > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas] ------------------------------------ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
