Re: [delphi-br] função findfirst

2010-04-10 Por tôpico Ricardo Augusto
Na verdade, a API FindFirst não garante nem que os arquivos voltarão na ordem em que foram gravados, provavelmente pq a tabela de alocação de arquivos pode ter suas entradas alterada por vários fatores, como desfragmentações e otimizações de prefecth. Então, assim como uma consulta SQL sem ORDER

[delphi-br] função findfirst

2010-04-09 Por tôpico Ralp Alves Bezerra
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;

Re: [delphi-br] função findfirst

2010-04-09 Por tôpico Ricardo Augusto
Os comandos FindFirst/FindNext não trazem os arquivos em nenhuma ordem específica. Se vc quer ordená-los por nome, carregue os nomes em uma StringList, chame o método Sort e depois processe cada um dos itens da lista (caso a ordenação seja por nome de arquivo). Em 8 de abril de 2010 08:16, Ralp

Re: [delphi-br] função findfirst

2010-04-09 Por tôpico Alexandre
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