Текущий архив: 2006.12.03;
Скачать: CL | DM;

Вниз

IB + BDE   Найти похожие ветки 

← →
frameZ ©   (2006-11-16 00:02) [0]

Здраствуте мастера!!!
У 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 00:37) [1]

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

---

← →
framez ©   (2006-11-16 01:01) [2]


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

var Groups : array of TGroupRec;


---

← →
MikePetrichenko ©   (2006-11-16 01:04) [3]

> var Groups : array of TGroupRec;

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

---

← →
framez ©   (2006-11-16 01:10) [4]

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

---

← →
MikePetrichenko ©   (2006-11-16 01:12) [5]

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

SetLength + F1

---

← →
Германн ©   (2006-11-16 03:06) [6]

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

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

---

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

Текущий архив: 2006.12.03;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.072 c