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

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

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

Скопировать поля набора данных [D7]

Juice © (2005-11-09 11:09:00)
Есть CDS1(открытый) и CDS2(закрытый). В CDS1 есть вычисляемые поля, агрегаты, и просто поля и вот хотелось бы в run-time скопировать все эти поля(но не их значения Value) в CDS2, другими словами сделать так, чтобы оба компонента были одинаковыми по составу полей. Это вообще возможно сделать в run-time?

МишкаГамми (2005-11-18 15:29:00) [1]
Вот так я копирую вместе с данными.
А если сами данные не нужны, то их потом можно удалить
uses ...Provider;
...
var prvTemp : TProvider;
...

// clds_SchetFact_2502 копируем в clds_Fact_orig
clds_Fact_orig.Close;
prvTemp:=TProvider.Create(nil);
prvTemp.DataSet:= frmChooseReport.clds_SchetFact_2502;
clds_Fact_orig.Data:=prvTemp.Data;
prvTemp.Destroy;

Juice (2005-11-09 12:44:00) [2]
Source.FieldDefs.Update; Dest.FieldDefs := Source.FieldDefs; Dest.FieldDefs.Update; List:=TStringList.Create; for i:=0 to Dest.FieldDefs.Count-1 do begin Dest.FieldDefs[i].CreateField(Dest);
Как ни странно, но в FieldDefs не попадают lookup и агреаты. А они и нужны в первую очередь!

Nikolay M. (2005-11-09 11:51:00) [3]

> создавать новый экземпляр этого поля, для каждого типа поля тупо копировать
> характерную для него информацию

Посмотри Example в хелпе для TCustomClientDataSet.CreateDataSet.

Juice (2005-11-09 11:45:00) [4]

> Нужно ручками перегонять

Это как ? Смотреть для каждого поля его тип (TIntegerField, TFloatField, ...), создавать новый экземпляр этого поля, для каждого типа поля тупо копировать характерную для него информацию, типа F2.FieldName:=F1.FieldName ?

ANB (2005-11-09 11:38:00) [5]

> Juice © (09.11.05 11:26) [3]

Не совсем это. Хотя идея верная. Нужно ручками перегонять, а не копировать ссылки на объекты полей.

Juice (2005-11-09 11:33:00) [6]

> CDS2.FieldList.LoadFromStream

ERROR: Property is read only

Juice (2005-11-09 11:27:00) [7]

> CDS1.FieldList.SaveToStream
> CDS2.FieldList.LoadFromStream
> Не прокатит?

Сейчас попробую

Juice (2005-11-09 11:26:00) [8]
for i:=0 to Source.FieldCount-1 do Dest.Fields.Add(Source.Fields[i])
Если это имелось в виду то получается не то, что хотелось бы. Так поля линкуются вместе с данными, в Dest появляется только одна запись с данными что содержаться в Source и кроме того при уничтожении Dest происходит зависание программы, т.к. Source остается без полей, скорее всего.

Sergey13 (2005-11-09 11:24:00) [9]
CDS1.FieldList.SaveToStream
CDS2.FieldList.LoadFromStream
Не прокатит?

Ega23 (2005-11-09 11:12:00) [10]
Пройтись в цикле по филдам первого, добавить аналогичные филды во второй.

Наверх

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