Вот так можно пробежаться по всем файлам за сутки
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i,b : integer;
s: string;
begin
Memo1.Clear;
for i := 0 to 23 do
for b := 0 to 1 do
begin
if i <= 9 then s:= '0'+ IntToStr(i) else
s:= IntToStr(i);
if b=0 then s:= '_' + s + '0000' else s:= '_' + s + '3000';
//
Memo1.Lines.Add(s);
// вот здесь поиск и обработка
end;
end; Мемо для наглядности - туда добавляется идентификационный фрагмент из имени файла ('_000000'...'_233000') и его можно использовать для нахождения нужного для обработки файла посредcтвом поиска данного фрагмента в имени напр.
Код:
if Pos(s, FileName) > 0 then // Это нужный файл