Форум: "Начинающим";
Текущий архив: 2007.09.30;
Скачать: [xml.tar.bz2];

Вниз

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

← →
delphino   (2007-09-03 06:42) [0]

Вследствии чего может возникнуть такая ошибка?

---

← →
WASM ©   (2007-09-03 06:44) [1]

> delphino   (03.09.07 06:42)


Код давайте

---

← →
delphino   (2007-09-03 06:49) [2]

Да собственно думаю не в коде дело. Просто две таблицы раньше были не связаны, а теперь находятся в отношении один ко многим и когда я пытаюсь редактировать запись в главной таблице выскакивает эта ошибка, раньше ее не было.

---

← →
WASM ©   (2007-09-03 06:51) [3]

> delphino   (03.09.07 06:49) [2]


Ну тогда...

---

← →
delphino   (2007-09-03 06:57) [4]

> Ну тогда...

Что тогда?..

---

← →
@!!ex ©   (2007-09-03 07:04) [5]

> [4] delphino   (03.09.07 06:57)

Код давай.
А ошибка возникает такая, значит нет первого элемента в списке. Тобишь он либо пустой, либо там лежит только один элемент, нулевой.

---

← →
delphino   (2007-09-03 07:07) [6]

procedure TNewdataForm.BitBtn3Click(Sender: TObject);
begin
f1:=True;
 if ((DataModule2.DataSource9.DataSet=DataModule2.namesys) or
 (DataModule2.DataSource9.DataSet=DataModule2.typsystem)) or
 (DataModule2.DataSource9.DataSet=DataModule2.typenet) then
 begin
   dobdataForm.Label2.Caption:="Ïîëíîå íàèìåíîâàíèå";
   dobdataForm.Edit2.Visible:=True;
 end;
 if DataModule2.DataSource9.DataSet=DataModule2.namesys then dobdataForm.Label1.Caption:="Èíô.áàíê";
 if DataModule2.DataSource9.DataSet=DataModule2.typsystem then dobdataForm.Label1.Caption:="Òèï ñèñòåìû";
 if DataModule2.DataSource9.DataSet=DataModule2.typenet then dobdataForm.Label1.Caption:="Òèï ñåòè";
 if DataModule2.DataSource9.DataSet=DataModule2.status then dobdataForm.Label1.Caption:="Ñòàòóñ";
 if DataModule2.DataSource9.DataSet=DataModule2.positionsi then dobdataForm.Label1.Caption:="Äîëæíîñò&#2 52; ÑÈ";
 if DataModule2.DataSource9.DataSet=DataModule2.paycond then dobdataForm.Label1.Caption:="Óñëîâèå îïëàòû";
 if DataModule2.DataSource9.DataSet=DataModule2.Typeven then dobdataForm.Label1.Caption:="Òèï ïîñåùåíèÿ";
 if DataModule2.DataSource9.DataSet=DataModule2.riv then dobdataForm.Label1.Caption:="Êîíêóðåí&#2 42;";
 if DataModule2.DataSource9.DataSet=DataModule2.category then dobdataForm.Label1.Caption:="Êàòåãîðè&#2 55;";
 if DataModule2.DataSource9.DataSet=DataModule2.typedog then dobdataForm.Label1.Caption:="Òèï äîãîâîðà";
 dobdataForm.Edit1.Text:=DataModule2.DataSource9.DataSet.Fields[0].AsString;
 if dobdataForm.Edit1.Visible=True then
 dobdataForm.Edit2.Text:=DataModule2.DataSource9.DataSet.Fields[1].AsString;
 dobdataForm.ShowModal;
end;

---

← →
delphino   (2007-09-03 07:16) [7]

Разобралась. Извиняюсь за беспокойство:)

---

← →
Anatoly Podgoretsky ©   (2007-09-03 07:48) [8]

> delphino  (03.09.2007 07:07:06)  [6]

Вот он первый элемент

dobdataForm.Edit2.Text:=DataModule2.DataSource9.DataSet.Fields[1].AsString;

---

← →
delphino   (2007-09-03 10:46) [9]

> Вот он первый элемент
>
> dobdataForm.Edit2.Text:=DataModule2.DataSource9.DataSet.
> Fields[1].AsString;

Спасибо я уже это поняла:)

---

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

Форум: "Начинающим";
Текущий архив: 2007.09.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.035 c