Форум: "Базы";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
ВнизКопирование TField Найти похожие ветки
← →
Gilk (2003-11-19 19:29) [0]Как скопировать TField"ы из одного DataSet в другой в RunTime
← →
sniknik (2003-11-19 19:44) [1]попробуй FieldDefs.Assign()
← →
Vlad (2003-11-19 19:48) [2]Нда... И что с таким датасетом потом делать ?
← →
Anatoly Podgoretsky (2003-11-19 20:00) [3]Vlad © (19.11.03 19:48) [2]
Это самая важная часть, может и не надо копировать.
← →
sniknik (2003-11-20 01:24) [4]Vlad © (19.11.03 19:48) [2]
делаеш CreateDataSet и получаеш чистый датасет оторванный от данных, удобнее работать с таким датасетом чем со стринггридом к примеру.
← →
Vlad (2003-11-20 10:25) [5]
> sniknik © (20.11.03 01:24) [4]
У TDataSet нет метода CreateDataSet (не путай с ClientDataSet или ADODataSet). С ним нельзя работать в отрыве от БД.
← →
-=GUEST=- (2003-11-20 15:54) [6]Допустим есть два датасета NewDataSet и TempDataset.
Копирование поля по имени "MyField" из TempDataset в NewDataSet
AddField(NewDataSet,TempDataset.FieldByName("MyField"));
procedure AddField(DataSet : TDataSet; Field : TField);
var
NewField : TField;
begin
//В зависимости от типа поля создаем соотв класс
if Field.ClassName = "TSmallintField" then NewField := TSmallIntField.Create(self)
else if Field.ClassName = "TDateField" then NewField := TDateField.Create(self)
else if Field.ClassName = "TStringField" then NewField := TStringField.Create(self) then
begin
NewField := TStringField.Create(self);
NewField.Size := Field.Size; //Не забудь, что некоторые типы имеют доп. сво-ва, кот. тоже нужно копировать
end;
...
Перебираем все возможные классы
...
NewField.FieldName := Field.FieldName;
NewField.Name := DataSet.Name + Field.FieldName;
NewField.DisplayLabel := Field.DisplayLabel;
NewField.DataSet := DataSet; //Эта строка и реализует копирование
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c