Создание TDataSet

← →
Term © (2007-07-17 11:38) [0]

Нужно создать объект типа TDataSet, добавить в поля, и потом использовать.

делаю так:

var OperationList1:TDataSet; begin ................. OperationList1:=TDataSet.Create(self); OperationList1.FieldDefs.Add("property", ftInteger, 0, false); OperationList1.FieldDefs[0].CreateField(OperationList1); OperationList1.FieldDefs.Add("unit", ftInteger, 0, false); OperationList1.FieldDefs[1].CreateField(OperationList1); OperationList1.FieldDefs.Add("Operation", ftInteger, 0, false); OperationList1.FieldDefs[2].CreateField(OperationList1); OperationList1.Active:=true; ............ end;

при попытке OperationList1.Active:=true; сваливается

← →
Ega23 © (2007-07-17 11:43) [1]

Естественно.
TDataSet - абстрактный класс. Создавай конкретного потомка: TADODataSet или TClientDataSet или TTable etc.

← →
Term © (2007-07-17 12:04) [2]

хм...
TDataSet = class(TComponent, IProviderSupport)

я бы не сказал что он абстрактный... просто обычно напрямую не используется

у меня есть объект который возвращает результат в TDataSet, но у него canmodify = false

вот я хотел создать второй свой объект который можно модифицировать

← →
Kolan © (2007-07-17 12:08) [3]

> я бы не сказал что он абстрактный

Справка скажет:
TDataSet introduces the basic properties, events, and methods for working with data. Many of these properties, events, and methods are abstract (Delphi) or pure virtual (C++) in TDataSet.

← →
Term © (2007-07-17 12:10) [4]

ну хорошо а почему я использую то объект
и поля и данные в нём есть, только canmodify = false

← →
Kolan © (2007-07-17 12:12) [5]

> объект

Экземпляр какого класса это объект?

← →
Ega23 © (2007-07-17 12:18) [6]

> у меня есть объект который возвращает результат в TDataSet,
> но у него canmodify = false

function NewDataSet(Param: Integer): TDataSet; begin Case Param of 0 : Result := TADODataSet.Create(nil); 1 : Result := TADOQuery.Create(nil); 2 : Result := TClientDataSet.Create(nil); 3 : Result := TTable.Create(nil); end; end;

← →
Term © (2007-07-17 12:29) [7]

> Экземпляр какого класса это объект?

да тут класс самописный вот разбираюсь как живёт
примерно так

var OperationList:TDataSet; begin ....... OperationList:=dbe.SQL(" select * from TableName"); .......

вот как то так

← →
Ega23 © (2007-07-17 12:32) [8]

> да тут класс самописный вот разбираюсь как живёт
> примерно так
>
> var OperationList:TDataSet;
> begin
> .......
> OperationList:=dbe.SQL(" select * from TableName");
> .......
>
> вот как то так
>

Фигня какая-то написана...

← →
Term © (2007-07-17 12:33) [9]

всё понял что и как
всем спасибо

← →
Kolan © (2007-07-17 13:06) [10]

> [8] Ega23 © (17.07.07 12:32)

> Фигня какая-то написана&#133

> [9] Term © (17.07.07 12:33)
> всё понял что и как

Ega  как ты это делаешь?

← →
Ega23 © (2007-07-17 13:12) [11]

> Ega — как ты это делаешь?

:))))

← →
Term © (2007-07-17 13:16) [12]

> Ega — как ты это делаешь?

умеет )))

> Ega — как ты это делаешь?

активный телепатор с обратной связью? :)

Утюг что ли, или паяльник?
Другие мне неизвестны.

>Kolan © (17.07.07 13:06) [10]
>> всё понял что и как
>Ega — как ты это делаешь?

Послужи и ты в ВДВ,- там и не такому научат ;)

> Послужи и ты в ВДВ,- там и не такому научат ;)

Я НЕ СЛУЖИЛ В ВДВ!
Единственное отношение, которое имею к десантуре - дрались несколько раз в Ростове-на-Дону на автовокзале.

> Ega23 (19.07.2007 08:56:17) [17]

Был десант на автовокзал :-)

Создание TDataSet Найти похожие ветки