(Resolvido) copiar ficheiro imagens numeradas

[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

Editado Agosto 28, 2010 por rebotea

[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;