Главная страница
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.016 c
6-36781
AAZ72
2003-10-15 18:23
2003.12.12
Использование WebBrowser


14-36842
mmmaloy
2003-11-19 14:54
2003.12.12
Шаравары (Shareware)


1-36747
Urvin
2003-12-01 18:10
2003.12.12
Свой Курсор


1-36708
timak
2003-12-02 15:48
2003.12.12
Помогите найти QRStringGrid


4-36891
NetKnight
2003-10-10 02:22
2003.12.12
Передать хенда программы в DLL?