List index out of bounds(1)

← →
GanibalLector © (2005-02-21 16:47) [0]

type Goption = record Field : string[20]; Caption : string[20]; Alignment:TAlignment; Color:TColor; end; TProp:array of Goption; ... procedure TForm6.N17Click(Sender: TObject); var i:integer; begin Form24.CheckListBox1.Items.Clear; SetLength(TProp,DBGridEh1.Columns.Count); for i:=0 to DBGridEh1.Columns.Count-1 do begin Form24.CheckListBox1.Items.Add(DBGridEh1.Columns.Items[i].Title.Caption); if DBGridEh1.Columns.Items[i].Visible then Form24.CheckListBox1.Checked[i]:=true; TProp[i].Field:=DBGridEh1.Columns.Items[i].FieldName; TProp[i].Alignment:=DBGridEh1.Columns.Items[i].Title.Alignment; TProp[i].Caption:=DBGridEh1.Columns.Items[i].Title.Caption; TProp[i].Color:=DBGrid1.Columns.Items[i].Title.Font.Color; end; Form24.ShowModal; end;

На втором проходе цикла(при i=1) получаю raice exception class EListError "List index out of bounds(1)".
С чего бы это ? По F7 не ходил,пока..
Кстати,если выделенное убрать,то все прекрасно работает.

← →
Семен Сорокин © (2005-02-21 16:49) [1]

галочка Range Check Error стоит?

← →
GanibalLector © (2005-02-21 16:50) [2]

>галочка Range Check Error стоит?

ШО за галочка? И где она должна стоять? В IDE что-ли...

← →
Sandman25 © (2005-02-21 16:51) [3]

DBGridEh1 или DBGrid1

← →
Семен Сорокин © (2005-02-21 16:51) [4]

Project->Options

← →
DiamondShark © (2005-02-21 16:53) [5]

TProp[i].Color:=DBGrid1.Columns.Items[i].Title.Font.Color;

А там точно должно быть DBGrid1, а не DBGridEh1?

← →
MU (2005-02-21 16:53) [6]

TProp[i].Color:=DBGrid1Eh1.Columns.Items[i].Title.Font.Color;
end;

← →
Семен Сорокин © (2005-02-21 16:53) [7]

[3] - точно :))

ЗЫ. TForm6.N17Click, Form24, CheckListBox1, DBGridEh1
ужас поубывав бы

← →
GanibalLector © (2005-02-21 16:54) [8]

Да,я юзаю DBGrid1Eh. Что в этом плохого?

Все,понял...пардон.
Видать заработался ;)

> GanibalLector © (21.02.05 16:54) [8]
> Да,я юзаю DBGrid1Eh. Что в этом плохого?

Да ничего. А компонент DBGrid1 на форме есть?

List index out of bounds(1) Найти похожие ветки