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;
в чем может быть проблема?
|
|
| |