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