Consegui fazer o que queria utilizando TSearchRec da seguinte forma.
procedure TFrm....
var search : TSearchRec; // Unit SysUtils
filename, dirname : String;
seq, i : Integer;
Begin
// (...)
if not SelectDirectory('Selecione o diretório', 'arqs', dirname) then // Unit FileCtrl
begin
Application.MessageBox('Sem destino', APPNAME, MB_OK+MB_ICONERROR);
Exit;
end;
try
// Pesquisando o diretório corrente para gerar arquivos únicos
if (FindFirst(dirname + '*_' + FormatDateTime('ddmm', Date) + '_*.txt',
faArchive,
searchResult) = 0 ) then
begin
repeat
// Extraindo o sequencial do arquivo
i := LastDelimiter('_', searchResult.Name);
if (TryStrToInt(copy(searchResult.Name, i, 3), i)) then
seq := Max(i, seq);
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;
filename := NUMERO_DOCUMENTO + '_' +
FormatDateTime('ddmm', Date) + '_' +
LPad(IntToStr(seq + 1), 3, '0') + '.txt'; // LPad função privada de padding à esquerda
// Garantindo que não existe arquivo com a nomenclatura passada
while FileExists(dirname + filename) do
begin
seq := seq + 1;
filename := NUMERO_DOCUMENTO + '_' +
FormatDateTime('ddmm', Date) + '_' +
LPad(IntToStr(seq + 1), 3, '0') + '.txt';
end;
// (Outros códigos ...)
End;
End.
Uma coisa que me ajudou neste código foi o uso de TryStrToInt
, pois ele me permitiu evitar que um nome não finalizado em _999.txt fizesse a aplicação gerar uma Exception
de conversão.
Aparentemente eu poderia ter problemas quando o sequencial chegasse em 999 pois o proximo a ser gerado seria o _1000.txt e ao invés de conseguir buscar o valor 1000, como estou limitando a 3 caracteres vai acabar pegando 100 e iterando na verificação de existência até o 1001. Vai acabar dando certo pelo jeito errado.
Uma solução seria buscar a posição de ".txt" para efetuar o calculo da quantidade de caracteres a ser utilizada tanto para a função copy
quanto para o padding
.