Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

List index out of bounds (1)

delphino © (2007-09-03 06:42:00)
Вследствии чего может возникнуть такая ошибка?

delphino (2007-09-03 10:46:00) [1]

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

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

Anatoly Podgoretsky (2007-09-03 07:48:00) [2]
> delphino (03.09.2007 07:07:06) [6]

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

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

delphino (2007-09-03 07:16:00) [3]
Разобралась. Извиняюсь за беспокойство:)

delphino (2007-09-03 07:07:00) [4]
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:='Äîëæíîñò 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:='Êîíêóðåí 42;';
if DataModule2.DataSource9.DataSet=DataModule2.category then dobdataForm.Label1.Caption:='Êàòåãîðè 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;

@!!ex (2007-09-03 07:04:00) [5]
> [4] delphino (03.09.07 06:57)

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

delphino (2007-09-03 06:57:00) [6]

> Ну тогда...

Что тогда?..

WASM (2007-09-03 06:51:00) [7]

> delphino (03.09.07 06:49) [2]

Ну тогда...

delphino (2007-09-03 06:49:00) [8]
Да собственно думаю не в коде дело. Просто две таблицы раньше были не связаны, а теперь находятся в отношении один ко многим и когда я пытаюсь редактировать запись в главной таблице выскакивает эта ошибка, раньше ее не было.

WASM (2007-09-03 06:44:00) [9]

> delphino (03.09.07 06:42)

Код давайте

Наверх

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