Скачать: CL | DM;

Как наваять в TTable свою собственную таблицу?   Найти похожие ветки 

← →
7Up ©   (2002-11-15 12:51) [0]

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

Во-первых, 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;


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

---

← →
Prooksius ©   (2002-11-15 13:23) [1]

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

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


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

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

---

← →
7Up ©   (2002-11-18 08:46) [2]

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

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

var
SomeClass1:TSomeClass;

Implementation

SomeClass1:=TSomeClass.Create;
...


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

---

← →
Reindeer Moss Eater   (2002-11-18 09:01) [3]

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

---

← →
Lord Warlock ©   (2002-11-18 09:15) [4]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c