цикл for i:=0 to count -1 do. Уменьшать счётчик i внутри цикла...

[Человек_Борща]

Доброго времени суток! Пишу приложение нужно сортировать список файлов.. вот функция:

function CheckForNewFiles(aNewFilesList, AoldFilesList: TStrings): boolean;
var
  i, i2: integer;
  s, s1, s3: string;
  m1, m2: string;
//  FilesNum:integer;
begin
  If AoldFilesList.Count = 0 then
  begin
    Result := True;
    Exit;
  end;
  for i2 := 0 to aNewFilesList.Count - 1 do
  begin
    s := GetFileNameFromData(aNewFilesList.Strings[i2]);
    s3 := AoldFilesList.Text;
    if Pos(s, s3) = 0 then
    begin
      Continue; // переход к сл. интерации
    end
    else
    begin
    //имя одинаковое но есть в разных списках
      m1 := GetFileHashFromDataByName(s, aNewFilesList);
      m2 := GetFileHashFromDataByName(s, AoldFilesList);
      if CompareFilesByMd5(m2, m1) then
      begin
        {
          Файл старый и хеши совпали, значит этот файл ужебыл в закачках и он закачан
          На сервере нового нет...
        }
        // если хеши совпадают
        aNewFilesList.Delete(i2);
        {
        Покажем что нужно откатиться на 1 назад т.е. из файла удалена 1 строка.
        }
        i2:=i2-1; //потому что число файлов уменьшилось на 1 и отсчёт нужно начинать с 0.
        // Переход к след. интерациии..
        Continue;
      end
      else
      begin
        // Хеши не совпадают
        Continue; //пропускаем файл...
      end;
    end;
  end;
  if (aNewFilesList.Count = 0) then
    Result := False
  else
    Result := True;
end;

проблема:

      begin
        {
          Файл старый и хеши совпали, значит этот файл ужебыл в закачках и он закачан
          На сервере нового нет...
        }
        // если хеши совпадают
        aNewFilesList.Delete(i2);
        {
        Покажем что нужно откатиться на 1 назад т.е. из файла удалена 1 строка.
        }
        i2:=i2-1; //потому что число файлов уменьшилось на 1 и отсчёт нужно начинать с 0.
        // Переход к след. интерациии..
        Continue;
      end
      else
      begin
        // Хеши не совпадают
        Continue;
      end;

Удаляя строку уменьшаем счётчик строк на 9.
Но при этом, номер текущей(i2) строки не изменяется..

До выполнения delete, ANewFilesList.Count = 10
После выполнения delete, ANewFilesList.Count = 9

До выполнения delete, i2 = 0
После выполнения delete, i2 = 1 (Должен стать 0)

Так вот после выполнения delete, i2 нужно уменьшить на один чтобы отсчёт снова вести с 0...

В коде я это показал:
i2:=i2-1;

Но компилятор не даёт этого сделать. Почему?
Ошибка:
[DCC Error] MiscUnit.pas(176): E2081 Assignment to FOR-Loop variable 'i2'

Подсабите решением.

----------------------------

Есть вариант просто создать TSTemp:Tstrings;
и в него записывать новые файлы. Затем старый список чистить, а на его место ставить данные из TSTemp:Tstring;
Но думаю есть решение и моей проблеме...

[execom]

переменную итерации нельзя менять в рамках цикла.. например такой код тоже не за работает

for i:=1 to 10 do i:=i-1;

кстати это сдаланно для того что бы конструкции подобные приведенной выше не приводили к вечным циклам)

Советую сокращать количество циклов банальным выходом по break)

[_-Re@l-_]

Ну, вместо цикла for попробуйте пользовать while.

[ReportCube]

for i2 := aNewFilesList.Count - 1 downto 0 do

[Аватар]

Если вместо TStrings использовать TStringList, то там есть возможности автосортировки - свойства Sorted и CaseSensitive

[Человек_Борща]

Сообщение от Аватар

Если вместо TStrings использовать TStringList, то там есть возможности автосортировки - свойства Sorted и CaseSensitive

Как это помогло бы мне, если мне нужно изменить счётчик цикла?

Пака увидел для себя вариант:

Есть вариант просто создать TSTemp:Tstrings;
и в него записывать новые файлы. Затем старый список чистить, а на его место ставить данные из TSTemp:Tstring;
Но думаю есть решение и моей проблеме...

вполне работает.

[Пепел Феникса]

вам нужен просто цикл while aNewFileList.Count>0 do
внутри использовать нулевой индекс.

[Человек_Борща]

вероятность того что aNewFileList.Count = 0 очень мала.

[Пепел Феникса]

значит идите через while с ручным индексом цикла.
(если надо увеличивайте иначе нет)

[Serge_Bliznykov]

либо, как уже ранее предлагалось, использовать условный цикл (while или repeat)
но много лучше использовать технику, которую уже предложил ReportCube в пост #4

for i2 := aNewFilesList.Count - 1 to 0 do
  begin
    s := GetFileNameFromData(aNewFilesList.Strings[i2]);
    if НУЖНОЕ_УСЛОВИЕ_ДЛЯ_УДАЛЕНИЯ then
        // если хеши совпадают
        aNewFilesList.Delete(i2);
  end;

p.s.
про этот УЖАС

    s3 := AoldFilesList.Text;
    if Pos(s, s3) = 0 then

я уже молчу... мало того, что строка s3 присваивается в цикле,
так ещё про методы IndexOf и Find забыли? Или они чем-то не подходят, нужно именно в цикле брать .Text и искать вхождение строки?!