Пропустить запись

[Shouldercannon]

Доброго времени суток!
Есть два массива. Первый по длине больше второго.

var
  i: Integer;
begin
  for i := 0 to Length(Test) - 1 do // Тут 4 ячейки (False;True;False;True)
  begin
    if Test[i].AlarmIgnore then Continue;
    TabControl1.Alarm[i] := Test[i].Alarm; // Тут 2 ячейки
  end;
end;

Получается, что в TabControl1.Alarm попадают False;True;
На деле должно быть True;True;

[Аватар]

Получается, что в TabControl1.Alarm попадают False;True;
На деле должно быть True;True;

Что-то такое не от мира сего. Что нужно то?

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

(False;True;False;True) это от какого из свойств?
Alarm или AlarmIgnore?

[Shouldercannon]

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

Что-то такое не от мира сего. Что нужно то?

В цикле пробежаться по Test[i].AlarmIgnore и добавить в TabControl1.Alarm[i] только Test[i].Alarm со значением True.

Сообщение от Пепел Феникса

(False;True;False;True) это от какого из свойств?
Alarm или AlarmIgnore?

AlarmIgnore

[Аватар]

Если добавлять только истинный Test[i].Alarm, то почему проверять на истинность Test[i].AlarmIgnore?

[Serge_Bliznykov]

Получается, что в TabControl1.Alarm попадают False;True;

А почему Вы одну и ту же переменную используете и для прохода по массиву из 4-х элементов (который Test) и для добавляемого массива из 2-х элементов (который TabControl1.Alarm) ?!

не знаю, что Вы пытаетесь построить, но, на мой взгляд, более подходящим будет код примерно такого вида:

var
  i,k: Integer;
begin
  k := 0;
  for i := 0 to Length(Test) - 1 do // Тут 4 ячейки (False;True;False;True)
    if Not Test[i].AlarmIgnore then begin
       TabControl1.Alarm[k] := Test[i].Alarm; // Тут 2 ячейки
       inc(k);
    end;
end;

ну и что будет, если в Test будет 3 или 4 элемента с AlarmIgnore = false, как Вы их в массив из двух элементов запихнёте?!

[Shouldercannon]

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

ну и что будет, если в Test будет 3 или 4 элемента с AlarmIgnore = false, как Вы их в массив из двух элементов запихнёте?!

Всё рассчитано

[Shouldercannon]

А при таком раскладе

// Отладка
procedure TFormPrivate.RefreshAlarms;
  function FindTabIndex(UserID: Integer): Integer;
  var
    i: Integer;
  begin
    for i := 0 to TabControl1.Tabs.Count - 1 do
    begin
      if Integer(TabControl1.Tabs.Objects[i]) = UserID then
      begin
        Result := i;
        Break;
      end
      else Result := -1;
    end;
  end;

  function BoolToInt(B: Boolean): Integer;
  begin
    if B then Result := 1 else Result := 0;
  end;
var
  i: Integer;
begin
  Memo1.Clear;

  for i := 0 to Length(TabUsers) - 1 do
  begin
    TabControl1.Alarm[FindTabIndex(TabUsers[i].UserID)] := TabUsers[i].Alarm;
    Memo1.Lines.Add(Format('Записали в %d: %d', [FindTabIndex(TabUsers[i].UserID), BoolToInt(TabUsers[i].Alarm)]));
  end;
end;

5 вкладок и 5 записей в массиве
Записали в 0: 0
Записали в 1: 0
Записали в 2: 0
Записали в 3: 0
Записали в 4: 0

2 вкладки и 5 записей в массиве
Записали в -1: 0
Записали в -1: 0
Записали в -1: 0
Записали в 0: 0
Записали в 1: 0

Ошибок нет. Во что это может вылиться в дальнейшем?