Здравствуйте, Гость
Понедельник, 25.09.2017, 06:53
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: Ekz 
Форум » Все о Delphi » Синтаксис » TreeView1.Items[0].Data как переназначить указатели
TreeView1.Items[0].Data как переназначить указатели
KiotoДата: Вторник, 09.04.2013, 23:22 | Сообщение # 1
Ранг 1
Группа: Пользователи
Сообщений: 1
Награды: 0
Репутация: 0
Статус: Offline
Хочу привязать к ноде TtreeView дополнительное значение.
Назначение и чтение проходит удачно, но на попытки очистить и измененить компилятор выдает ошибку.

PMyData = ^TMyData;
TMyData = record
par1: string;
par2: TDateTime;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
p: PMyData;
begin

TreeView1.Items.AddChild(nil,'Hello');
New(p);
p^.par1:= 'Hello, World!';
p^.par2:= Now;
TreeView1.Items[0].Data:= p; // запись указателя делает

// чтение тоже идет
with TreeView1.Selected do
ShowMessage(PMyData(Data).par1 + #13 + DateToStr(PMyData(Data).par2));

// c переназначением проблема
New(p);
p^.par1:= 'Hello, World!';
p^.par2:= Now;
TreeView1.Items[0].Data:= p;

// и c очисткой проблема
Dispose(PMyData(TreeView1.Items[0].Data));

End;

в чем может быть проблема?
 
Форум » Все о Delphi » Синтаксис » TreeView1.Items[0].Data как переназначить указатели
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz