Неконтролируемое изменение переменной?

[Replicant]

По непонятным мне причинам переменная i увеличивает свое значение на 1 в указанном куске кода. Данная переменная локальная, нигде более не используется. Возникает вопрос: "То ли я дебил, то ли лыжи не едут"? Что это за х?

procedure TfmMain.btUserReadClick(Sender: TObject);
var
  sName: string;
  i, j, x: Integer;
  sRec: TSearchRec;
  sPath: string;
  sRec_flag: boolean;
begin
  for i := 0 to List.Count - 1 do
  begin
    SG2.RowCount := SG2.RowCount + 1;
    if SG2.FixedRows = 0 then
       SG2.FixedRows := 1;
    SG2.Cells[0, 0] := '№';
    SG2.Cells[1, 0] := 'Имя';
    SG2.Cells[2, 0] := 'ключ';
    SG2.Cells[0, i + 1] := IntToStr(i + 1);
    SG2.Cells[1, i + 1] := List.Items[i].Name;
    SG2.Cells[2, i + 1] := List.Items[i].RegName;
  end;
// Тут специально для отлова глюка проверяю чему равно i и List.Count, равны они 12 и 12 соответственно
  btCloseUserTab.Caption:='i='+i.ToString+' List.Count='+(List.Count).ToString;
//---------------------------------------------------------------

    sPath := 'C:\Users\*.*';
    if FindFirst(sPath, faAnyFile, sRec) = 0 then
    begin
      repeat
        if (sRec.Attr and faDirectory) <> 0 then
        begin
          if (sRec.Name <> '.') and (sRec.Name <> '..') then
          begin
            if (sRec.Name <> 'Администратор') and (sRec.Name <> 'Все пользователи')
              and (sRec.Name <> 'Public') and (sRec.Name <> 'All Users') and
              (sRec.Name <> 'Default User') and (sRec.Name <> 'Default') then
              begin
                for j:=0 to List.Count-1 do
                begin
                  if List.Items[j].Name = sRec.Name then
                    sRec_flag:= false;
                end;
                if sRec_flag = True then
                      begin
// Тут специально  для отлова глюка проверяю чему равно i и List.Count, равны они 13 и 12 соответственно, ПОЧЕМУ???
                      fmMain.Caption:='i='+i.ToString+' List.Count='+(List.Count).ToString;
//---------------------------------------------------------------
                        SG2.RowCount := SG2.RowCount + 1;
                        inc(i);
                        SG2.Cells[0, i + 1] := IntToStr(i + 1);
                        SG2.Cells[1, i + 1] :=sRec.Name;
                        SG2.Cells[2, i + 1] := 'Нет ключа';
                      end;
                      sRec_flag:=True;
               end;
          end;
        end;
      until FindNext(sRec) <> 0;
    end;
    FindClose(sRec);
end;

[BARNEY]

for i := 0 to List.Count - 1 do

Где печеньку взять?

[Аватар]

Значение переменной цикла по выходу из него вообще считается неопределенным. Низзя так использовать. Оптимизатор в отдельных случаях вообще может цикл с конца заставить отработать, хотя в цикле и нет ни какого downto. Не в этом случае естесно

SG2.RowCount := SG2.RowCount + 1;

Один раз нельзя что-ли перед циклом увеличить на List.Count ? И следующий if и еще три присвоения чего в цикле делают?

[Replicant]

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

Значение переменной цикла по выходу из него вообще считается неопределенным. Низзя так использовать

Хорошо, я читаю в отдельною переменную х, перед выделенным блоком значение List.Count, оно = 12 и в конце блока вместо i использую переменную х. И происходит та же фигня, х почему-то становится равным 13 (после inc(x) соответственно 14), что за бред вообще?

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

Один раз нельзя что-ли перед циклом увеличить на List.Count ? И следующий if и еще три присвоения чего в цикле делают?

Можно. Это ясно что их из цикла выдернуть надо, но проблема-то не в этом.

[Replicant]

Сообщение от BARNEY

for i := 0 to List.Count - 1 do

Где печеньку взять?

нигде, внимательнее код читайте

С глюком разобрался, тема закрыта.