VPF::Хранение записей в VT не record, а class

ВиТеК

Дата 7.10.2009, 01:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 27.4.2008
Где: Санкт-Петербург

Репутация: нет
Всего: нет

В компоненте CheckList есть свойство Objects, которое позволяет хранить экземпляры классов.
Например:

Код


var
Construction : TConstruction;
...
//Создание эземпляра
Construction := TConstruction.Create;
//Далее идет наполнение экземпляра данными
...
//Добавлем элемент к списку с объектом ввиде экземпляра класса
chklstConstructions.Items.AddObject(Construction.CName, Construction);
...
//И такое тоже бывает надо
Construction := chklstConstructions.Items.Objects[i] as TConstruction;

Есть ли такое же в VT? Или все-таки record имеет больше преемуществ?
Просто в record нет возможности добавить процедуры и функции.

kami

Дата 7.10.2009, 01:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Я делаю так (неправильно, потому что работает только, если в NodeData один объект. Если добавить еще поля, то не хочет. Но меня устраивает, т.к. работает и FastMM утечек не выдает).

Код


  TmyNodeData = record
    myItem: TmyObject;
  end;
  pmyNodeData = ^TmyNodeData;

procedure Tfrmy.vtGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
  NodeData: pmyNodeData;
begin
  NodeData := Sender.GetNodeData(Node);
  CellText := '';

  if not Assigned(NodeData) then
    exit;
  if not Assigned(NodeData.myItem) then
    exit;

  if NodeData.myItem.ElementName <> '' then
  ...

Добавлено через 6 минут и 12 секунд
ну, и в качестве дополнения - добавление элемента с объектом

Код


var
  myItem:TmyObject;
Node := vt.InsertNode(ParentNode, am, myItem);
Node.States := Node.States + [vsInitialUserData];

ВиТеК

Дата 7.10.2009, 19:18 (ссылка)

(нет голосов)

Загрузка ...

И все-таки вопрос остался без ответа.
Можно ли использовать классы вместо записей?

Beltar

Дата 8.10.2009, 07:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 627
Регистрация: 11.1.2006

Репутация: 0
Всего: 7

1) Если у тебя не семерка, то в запись можно добавить методы, см хелп.
2) Я VT не использовал, но если там у узла такое же свойство типа Pointer, то никакой разницы что ты туда засунешь, указатель на экземпляр класса, или на структуру. Смотри что тебе удобнее.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile

(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.

ВиТеК

Дата 8.10.2009, 10:27 (ссылка)

(нет голосов)

Загрузка ...

У меня Delphi 2007.
Просто я так понял в стандартном компоненте можно хранить сам класс в Objects.
А в VT хранится указатель на область памяти с экземпляром класса (если такое возможно) или структурой?

Beltar

Дата 8.10.2009, 13:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 627
Регистрация: 11.1.2006

Репутация: 0
Всего: 7

В стандартном просто пишешь

Node.Data:=TMyClass.Create;

Цитата

А в VT хранится указатель на область памяти с экземпляром класса (если такое возможно) или структурой?

Ну так при обращении явно тип приводишь. У меня, например, было:

type
  TNodeDescriptor=record
  //
  end

TNodeDescriptor(Node.Data^).Нужное_Поле. С классом ес-но ^ не нужен.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »