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]

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

> 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;

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

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