Ajuda - Busca - Membros - Calendário
Versão Completa: (Resolvido) copiar ficheiro imagens numeradas
Fórum Script Brasil > Programação & Desenvolvimento > Delphi, Kylix
rebotea
Boas amigos

estou com um problema em buscar imagens numeradas sequençiais se alguém poder dar uma mão .

IR_0380.jpg and DC_0381.jpg pego a imagem IR_0380.jpg e necessito que tambem localize e copie a imagem DC_0381.jpg .

alguém tem ideia como poderei proceder?

Obrigado


as imagens são sempre sequenciais

IR_0380.jpg and DC_0381.jpg
IR_0382.jpg and DC_0383.jpg
IR_0384.jpg and DC_0385.jpg

brigado
Jhonas
Procure no forum por FindDialog

http://scriptbrasil.com.br/forum/index.php...lite=finddialog

abraço
rebotea
Boas já encontrei a solução Obrigado


position := LastDelimiter('_', FileName);
secuencial:= StrToInt(RightStr(FileName, Length(Filename) - position)) + 1;

SecondFilename:= 'DC_' + Format('%.*d', [4, secuencial]) + Ext;
end;
Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.
Invision Power Board © 2001-2012 Invision Power Services, Inc.