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

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

IB + BDE [D7]

frameZ ©   (2006-11-16 00:02:00) 

Здраствуте мастера!!!
У TreeView есть свойство Data. Как записать в это свойтво какое-нибудь поле из БД.?
Почему при попытке считать из таблицы выскакивает ошибка о нарушении доступа. Соединение с базой проходит нормально
while not DataModule1.GroupTable.Eof Do
   begin
Groups[i].IdGroup := DataModule1.GroupTable.FieldByName('IDGROUP').AsInteger;
Groups[i].IdParGroup := DataModule1.GroupTable.FieldByName('IDPARGROUP').AsInteger;
Groups[i].Name := DataModule1.GroupTable.fieldByName('NAME').AsString;
inc(i);
DataModule1.GroupTable.Next;
end;
Ошибка возникает в 1 строке после begin
Да и собственно как правильно считывать данные из таблицы с помощью  компонента Table в стуктуру?

---

Германн   (2006-11-16 03:06:00) [1]

> framez ©   (16.11.06 01:10) [4]
>
> Подскажите как правильно это сделать?
>

Тут есть ещё и проблемы с количеством записей.

---

MikePetrichenko   (2006-11-16 01:12:00) [2]

> Подскажите как правильно это сделать?

SetLength + F1

---

framez   (2006-11-16 01:10:00) [3]

Подскажите как правильно это сделать?

---

MikePetrichenko   (2006-11-16 01:04:00) [4]

> var Groups : array of TGroupRec;

А кто память выделит под массив? Дядя Вася?

---

framez   (2006-11-16 01:01:00) [5]


TGroupRec = Record
     IdGroup : integer;
     IdParGroup : integer;
     Name : String[30];
   end;

var Groups : array of TGroupRec;


---

Германн   (2006-11-16 00:37:00) [6]

А что есть Groups[i]

---

Наверх