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

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

Как наваять в TTable свою собственную таблицу? [D6]

7Up ©   (2002-11-15 12:51:00) 

Привет мастерам!

Во-первых, TTable, существует у меня в виде свойства класса, надо ли ему отдельный Create писать?

Во-вторых, как в этот TTable загонять данные? Желательно чтобы данные вводились кортежами.

Я писал так

{Cоздание класса с TTable}

var
i:integer;
F:Array of Ansistring;


for i:=0 to Length(F)-1 do
begin
with FieldDefs.AddFieldDefs do
begin
Name:=F[i];
FieldType:=ftString;
end;
Append // и здесь выскакивает ошибка EDatabaseError

......
end;


Заранее спасибо.

---

Lord Warlock   (2002-11-18 09:15:00) [1]

После конструкции
for i:=0 to Length(F)-1 do
begin
with FieldDefs.AddFieldDefs do
begin
Name:=F[i];
FieldType:=ftString;
end;
нужно писать
Create
Open
тк ты создаешь новую таблицу, и только потом делать
Append

---

Reindeer Moss Eater   (2002-11-18 09:01:00) [2]

В конструкторе TSomeClass вызывается какой-то из методов TTable, в то время, как сам TTable еще неактивен

---

7Up   (2002-11-18 08:46:00) [3]

Извиняюсь сократил объяснения...
{Создание класса с TTable}

type
SomeClass=class
Table:TTable;
...
end;

var
SomeClass1:TSomeClass;

Implementation

SomeClass1:=TSomeClass.Create;
...


Ошибка выскакивает типа
"Cannot perform this operation on closed dataset"

---

Prooksius   (2002-11-15 13:23:00) [4]

Во-первых: да надо.
Можно расшифровать это:

> {Cоздание класса с TTable}


Что конкретно пишет в этой ошибке:

> Append // и здесь выскакивает ошибка EDatabaseError

---

Наверх