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

Procure no forum por FindDialog

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

abraço

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;