Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.12;
Скачать: CL | DM;

Вниз

Копирование 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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
6-36790
Коля
2003-10-11 08:52
2003.12.12
Как правильно указать путь к файлу в сети?


1-36602
aleks111
2003-12-01 14:23
2003.12.12
wmf в res и обратно...


3-36519
Nick-From
2003-11-19 19:55
2003.12.12
Обработка исключения - Нет прав на выполнение действия


3-36577
alex_mas
2003-11-21 21:26
2003.12.12
interbase


14-36811
wHammer
2003-11-20 10:37
2003.12.12
Подскажите есть ли в природе...