Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Создание TDataSet

Term © (2007-07-17 11:38:00)
Нужно создать объект типа 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;сваливается

Anatoly Podgoretsky (2007-07-19 12:17:00) [1]
> Ega23 (19.07.2007 08:56:17) [17]

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

Ega23 (2007-07-19 08:56:00) [2]

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

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

MsGuns (2007-07-18 22:38:00) [3]
>Kolan © (17.07.07 13:06) [10]
>> всё понял что и как
>Ega — как ты это делаешь?

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

Anatoly Podgoretsky (2007-07-17 15:57:00) [4]
Утюг что ли, или паяльник?
Другие мне неизвестны.

Kolan (2007-07-17 15:13:00) [5]
:)

StriderMan (2007-07-17 14:23:00) [6]

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

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

Term (2007-07-17 13:16:00) [7]

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

умеет )))

Ega23 (2007-07-17 13:12:00) [8]

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

:))))

Kolan (2007-07-17 13:06:00) [9]
> [8] Ega23 © (17.07.07 12:32)

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

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

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

Term (2007-07-17 12:33:00) [10]
всё понял что и как
всем спасибо

Ega23 (2007-07-17 12:32:00) [11]

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

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

Term (2007-07-17 12:29:00) [12]

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

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

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

вот как то так

Ega23 (2007-07-17 12:18:00) [13]

> у меня есть объект который возвращает результат в 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;

Kolan (2007-07-17 12:12:00) [14]
> объект

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

Term (2007-07-17 12:10:00) [15]
ну хорошо а почему я использую то объект
и поля и данные в нём есть, только canmodify = false

Kolan (2007-07-17 12:08:00) [16]
> я бы не сказал что он абстрактный

Справка скажет:
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:04:00) [17]
хм...
TDataSet = class(TComponent, IProviderSupport)

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

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

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

Ega23 (2007-07-17 11:43:00) [18]
Естественно.
TDataSet - абстрактный класс. Создавай конкретного потомка: TADODataSet или TClientDataSet или TTable etc.

Наверх

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