Цикл For c TsCheckBox пропускает значения 0 2 3 ...

[ArtGrek]

var
  Checks: TsCheckBox  // Skin
  IndexN: integer     // индекс каждого чек бокса, у меня их 16
  List[3]: TObjectList;  
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ...
  NewCreate(IndexN);  // выполняеца 16 раз
  ...
end;

procedure TForm1.NewCreate(S: Integer); 
begin
  Checks := TsCheckBox.Create(self);
  List[3].Add(Checks);
  with Checks do
  begin
    Parent := Panels;
    Left := 246;
    Top := 3;
    Width := 20;
    Height := 20;
    Name := 'Checks' + IntToStr(S);
    Caption := '';
    SkinData.SkinSection := 'CHECKBOX';
    ImgChecked := 0;
    OnClick := ChecksClick;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  for i := 0 to IndexN - 1 do
    TsCheckBox(list[3][i]).Checked:=true;
end;

i приравниваеца к таким значениям
0 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
как такое бывает и как ето можно исправит, подскажите пожалуста?
проблема в етои строке, но мне она нужна)
TsCheckBox(list[3][i]).Checked:=true;

[asmodey1]

NewCreate(IndexN); // выполняеца 16 раз

Где это видно ? Видно, что выполняется 1 раз...
Или вы 16 раз выполняете FormCreate() ??? Где ?

З.Ы. Вам не стыдно писать "выполняеца" вместо "выполняется" ? Вы хотите поскорее прослыть безграмотным ?

[ArtGrek]

З.Ы. Вам не стыдно писать "выполняеца" вместо "выполняется" ? Вы хотите поскорее прослыть безграмотным ?

транслитом писал, до того как на форуме прописался, не судите строго, переучусь

IndexN читаю с ини фаила, для примера можно взять равное 5

  for i:= 1 to IndexN do                                                
    NewCreate(i);

ест еше дополнение

procedure TForm1.ChecksClick(Sender: TObject);
begin
  if TsCheckBox(Sender).Checked then
    CheckInc.Add(IntToStr(List[3].IndexOf(Sender)))
    else
      for i := 0 to CheckInc.Count - 1 do
        if CheckInc[i] = IntToStr(List[3].IndexOf(Sender)) then
        begin
          CheckInc.Delete(i);
          Break;
        end;
end;

[InternetStranger]

как такое бывает и как ето можно исправит

никак не исправляется, потому что такого не бывает ) Если не верите - поставьте BreakPoint на интересующую Вас строку и выполните пошаговое выполнение.

NewCreate(IndexN);  // выполняеца 16 раз

Если он выполняется 16 раз, то индексы д/б 0..15. И как, в таком случае, вы вот это выяснили:

i приравниваеца к таким значениям
0 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

[ArtGrek]

1)

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Clear;
  for i := 1 to indexn do
  begin
    Edit1.Text := Edit1.Text + inttostr(i - 1) + ' ';
    TsCheckBox(list[3][i - 1]).Checked:=true;
  end;
end;

резултат - 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

2)

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Clear;
  for i := 0 to indexn - 1 do
  begin
    Edit1.Text := Edit1.Text + inttostr(i) + ' ';
    TsCheckBox(list[3][i]).Checked:=true;
  end;
end;

резултат - 0 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

обшии код один и тот же, вариант 1 работает, вариант 2 нет, вот я и думаю, даже если я где то в другом месте допустил ошибку, как в принципе один и тот же код дает разныи резултат?

[ArtGrek]

http://programmersforum.ru/attachmen...1&d=1296380917

[Volt]

вставляй хоть первый хоть второй вариант работает . нужен весь проект а так....

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  StdCtrls, sCheckBox, Contnrs;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  procedure NewCreate(S: Integer);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  Checks: TsCheckBox;  // Skin
  IndexN: integer;     // индекс каждого чек бокса, у меня их 16
  List: array[1..9] of TObjectList;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.NewCreate(S: Integer);
begin
  Checks := TsCheckBox.Create(self);
  List[3].Add(Checks);
  with Checks do
  begin
    Parent := Form1;
    Left := 246;
    Top := 3;
    Width := 20;
    Height := 20;
    Name := 'Checks' + IntToStr(S);
    Caption := '';
    SkinData.SkinSection := 'CHECKBOX';
    ImgChecked := 0;
  //  OnClick := ChecksClick;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Clear;
  for i := 1 to indexn do
  begin
    Edit1.Text := Edit1.Text + inttostr(i - 1) + ' ';
    TsCheckBox(list[3][i - 1]).Checked:=true;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
List[3]:=TObjectList.Create;
IndexN:=16;
for i:= 1 to IndexN do
NewCreate(i);

end;

end.

[InternetStranger]

Ссылка не работает. Прикрепите еще раз.
Кстати, пользоваться глобальной переменной i для организации цикла - это очень скверная привычка. Всегда нужно объявлять ее локально:

procedure TForm1.Button1Click(Sender: TObject);
var I : Integer;
begin
  Edit1.Clear;

Объявите везде, где это возможно переменные локальными - и посмотрите еще раз.