Скачать: CL | DM;

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 ©   (2005-02-21 16:55) [9]

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

---

← →
Александр Иванов ©   (2005-02-21 16:55) [10]

GanibalLector ©   (21.02.05 16:54) [8]
Названия надо выбирать тщательней :)

---

← →
DiamondShark ©   (2005-02-21 16:56) [11]

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

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

---

← →
Anatoly Podgoretsky ©   (2005-02-21 16:59) [12]

DiamondShark ©   (21.02.05 16:56) [11]
А зачем?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c