| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

List index out of bounds(1) [D5, Win95/98, WinXP]

GanibalLector ©   (2005-02-21 16:47:00) 


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 не ходил,пока..
Кстати,если выделенное убрать,то все прекрасно работает.

---

Anatoly Podgoretsky   (2005-02-21 16:59:00) [1]

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

---

DiamondShark   (2005-02-21 16:56:00) [2]

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

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

---

GanibalLector   (2005-02-21 16:55:00) [3]

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

---

Александр Иванов   (2005-02-21 16:55:00) [4]

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

---

GanibalLector   (2005-02-21 16:54:00) [5]

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

---

DiamondShark   (2005-02-21 16:53:00) [6]

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

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

---

MU   (2005-02-21 16:53:00) [7]

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

---

Семен Сорокин   (2005-02-21 16:53:00) [8]

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

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

---

Sandman25   (2005-02-21 16:51:00) [9]

DBGridEh1 или DBGrid1

---

Семен Сорокин   (2005-02-21 16:51:00) [10]

Project->Options

---

GanibalLector   (2005-02-21 16:50:00) [11]

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

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

---

Семен Сорокин   (2005-02-21 16:49:00) [12]

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

---

Наверх