Проверка на наличие файла и последующие действия.

[D_A_akella]

Добрый день. Вот наградило начальство дополнением к проге что заказало)

есть алгоритм что удаляет все файлы оставляя только 5 последних...
но тут нуно сделать чтобы он не удалял файлы от 1 и 16 числа...это не проблема в реализации. дело 5 минут.но оказываеться Начальнику нуно чтобы если нет 1 и 16...сохраянлся файл с 2 и 17, если нет с 2 и 17 то 3 и 18 итд....

вот тут я в тупике...каким местом реализовать..что и как))) не представляю...
оч нужна помощь. заранее спасибо)!!!!!!!!!!!

[raxp]

...сначала прогоняешь по циклу от 1 до последнего и проверяешь наличие нужных [1,16], [1+i, 16+i], когда нашел нужные, тогда и удаляешь остальное/

[D_A_akella]

ну смотри. у меня месяц. архивов всего 5.тоесть 5 дней проходит на 6..1 архив удаляется.
и я не могу проверить сразу весь масив т.к. значения подаются по очереди....
вот код.

begin
        for m:=0 to n do
          begin
            IniFile:=TIniFile.Create(ProgDir+'\BackUp.ini');
            SourceDir:=IniFile.ReadString('BackUp','BackupPath','');
            PoutName:=IniFile.ReadString('Base'+IntToStr(m),'Name','');
            I := FindFirst(SourceDir +Poutname+'_'+ '*.rar', faAnyFile, SR);
            q := FindFirst(SourceDir +Poutname+'_'+ '*.Log', faAnyFile, SRL);
            to_delete:=SourceDir + string(SR.Name);
            to_delete_log:=SourceDir + string(SRL.Name);
            Arr_FileName[0]:=string(SR.Name);
            a:=1;
            while I = 0 do
              begin
                I := FindNext(SR);
                filename:=SR.Name;
                Arr_FileName[a]:=FileName;
                inc(a);
              end;
            s:=a-7;
            if a>6 then
              begin
                While s>-1 do
                  begin
                    my_len:=strlen(PChar(Arr_FileName[s]));
                    for i:=4 to 5 do
                      begin
                       my_str:=Arr_FileName[s][my_len-i]+my_str;
                      end;
                    if (my_str<>nachMes) and (my_str<>midmes) then
                    DeleteFile(PAnsiChar(SourceDir+Arr_FileName[s]));
                    dec(s);
                  end;
              end;
            SysUtils.FindClose(SR);
            Arr_LogFile[0]:=String(SRL.Name);
            a:=1;
            while I = 0 do
              begin
                q := FindNext(SRL);
                filename:=SRL.Name;
                Arr_LogFile[a]:=FileName;
                inc(a);
              end;
            s:=a-7;
            if a>6 then
              begin
                While s>-1 do
                  begin       //ТУТ и Должна в идеале проводиться проверка!! на дату. она счас проводиться но только для 16 числ. а заданием тут и непахнет
                    my_len:=strlen(PChar(Arr_FileName[s]));
                    for i:=4 to 5 do
                      begin
                       my_str:=Arr_FileName[s][my_len-i]+my_str;
                      end;
                    if (my_str<>nachMes) and (my_str<>midmes) then
                    DeleteFile(PAnsiChar(SourceDir+Arr_LogFile[s]));
                    dec(s);
                  end;
              end;
            SysUtils.FindClose(SRL);
            end;

      end

[D_A_akella]

вот что получилось...но собака не хочет работать как надо

    GetDir(0,ProgDir);
    IniFile:=TIniFile.Create(ProgDir+'\BackUp.ini');
    TypeB:=IniFile.ReadInteger('Base'+IntToStr(j),'Type',TypeB);
    if TypeB=1 then
      begin
        for m:=0 to n do
          begin
            IniFile:=TIniFile.Create(ProgDir+'\BackUp.ini');
            SourceDir:=IniFile.ReadString('BackUp','BackupPath','');
            PoutName:=IniFile.ReadString('Base'+IntToStr(m),'Name','');
            I := FindFirst(SourceDir +Poutname+'_'+ '*.rar', faAnyFile, SR);
            q := FindFirst(SourceDir +Poutname+'_'+ '*.Log', faAnyFile, SRL);
            to_delete:=SourceDir + string(SR.Name);
            to_delete_log:=SourceDir + string(SRL.Name);
            Arr_FileName[0]:=string(SR.Name);
            a:=1;
            while I = 0 do
              begin
                I := FindNext(SR);
                filename:=SR.Name;
                Arr_FileName[a]:=FileName;
                inc(a);
              end;
            s:=a-7;
            d:=a-1;
            ///////////////////////////////////////////////////////////////
            for j:=0 to d do
              begin
                my_len:=strlen(PChar(Arr_FileName[j]));
                my_str:='';
                for i:=4 to 5 do
                  begin
                    my_str:=Arr_FileName[j][my_len-i]+my_str;
                  end;
                Ar_DM[0]:=strtoint(my_str);

              end;
            D1:=Ar_DM[c];
            ////////////////////////////////////////////////////////////////
            b:=0;
            for s:=0 to 7 do
              begin
                b:=b+Cikl(Ar_DM[s],s);
              end;
            if b>1 then
              b:=1;
            ///////////////////////////////////////////////////////////////
            if b=1 then
            begin
            if D1<>MM then
              if a>6 then
                begin
                  While s>-1 do
                    begin
                      DeleteFile(PAnsiChar(SourceDir+Arr_FileName[s]));
                      dec(s);
                    end;
                end;
            SysUtils.FindClose(SR);
             end
            ////////////////////////////////////////////////////////////////
            else////////////////////////////////////////////////////////////

              inc(MM);
              if D1>MM then
              if a>6 then
                begin
                  While s>-1 do
                    begin
                      DeleteFile(PAnsiChar(SourceDir+Arr_FileName[s]));
                      dec(s);
                    end;
                end;
              SysUtils.FindClose(SR);

            /////////////////////////////////////////////////////////////////
            Arr_LogFile[0]:=String(SRL.Name);
            a:=1;
            while I = 0 do
              begin
                q := FindNext(SRL);
                filename:=SRL.Name;
                Arr_LogFile[a]:=FileName;
                inc(a);
              end;
            s:=a-7;
            if a>6 then
              begin
                While s>-1 do
                  begin

                    if (my_str<>nachMes) and (my_str<>midmes) then
                    DeleteFile(PAnsiChar(SourceDir+Arr_LogFile[s]));
                    dec(s);
                  end;
              end;
            SysUtils.FindClose(SRL);
            end;

      end