Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Передача данных в TreeView!


dimonf ©   (2002-12-09 10:13:00) 

У меня небольшой вопрос по переаче object в TreeView.
схема такова:
type
TGroupRec = class(TObject)
public
Fgroup : integer;
Fsub_group : integer;
FID : integer;
end;

TfrMain = class(TForm)
public
FMyRec : TGroupRec;
end;
...
TreeBase.AddObject(DataSource.DataSet.FieldByName("name").AsString, pointer(FMyRec);

вообщем вроде бы все работает но в процессе у меня появляються левые данные в FMyRec
может я не правильно организую FMyRec?

Как правильно организовать передачу данных?


Владислав   (2002-12-09 13:07:00) [1]

А ты указатель на один и тот же объект в разные узлы дерева добавляешь? А зачем это надо?


dimonf   (2002-12-09 11:00:00) [2]

я немного переделал
PGroupRec=^TGroupRec;
TGroupRec = record
Fgroup : integer;
Fsub_group : integer;
FID : integer;
end;


Skier   (2002-12-09 10:41:00) [3]

>dimonf
Ну и как у тебя объявлен этот MyRec ? Пока ничего не видно...


dimonf   (2002-12-09 10:36:00) [4]

Я его создаю в TForm.Create
MyRec := TGroupRec.Create;


Skier   (2002-12-09 10:27:00) [5]

>dimonf
А ты объект-то создаёшь ?
Из приведённого кода, очень похоже что нет...


Hooch   (2002-12-09 10:22:00) [6]

а зачем
TfrMain = class(TForm)
public
FMyRec : TGroupRec;
end;
?


Наверх

Титульная страница Поиск, карта сайта Написать письмо