Добрый День Всем ! У меня вопрос опять про TTreeView

← →
Rawman © (2003-12-17 13:31) [0]

Добрый День Всем ! У меня вопрос опять про TTreeView, а точнее про его свойство TTreeView.Selected.Data,
сначала я создаю дерево

type PFName = ^String;

*****

var Pt : PFName;

*****
Pt := AllocMem(SizeOf(String));
Tree1 := QueryTree.Items.Add(nil, "Тест1");
Pt^ := ExtractFileName(FileList.Strings[0]);
MyTree.Items.AddChildObject(Tree1, "SubTest", Pt);
FreeMem(Pt);

*****
Здесь все проходит нормально, когда я пытаюсь получить данные из Data все идет крахом

var s: String;
pt: PFName;

****

Pt := AllocMem(SizeOf(String));
Pt^ := String(MyTree.Selected.Data^);
s:= Pt^;
Label1.Caption:= S;
FreeMem(Pt);

*****

прогонял все это дело пошагово, а Delphi показывает что в Node.Data ничего нет

где косяк ? подскажите !

← →
Skier © (2003-12-17 13:34) [1]

Ошибки :

1) Используй пару New-Dispose
2) Pt := AllocMem(SizeOf(String));
Tree1 := QueryTree.Items.Add(nil, "Тест1");
Pt^ := ExtractFileName(FileList.Strings[0]);
MyTree.Items.AddChildObject(Tree1, "SubTest", Pt);
FreeMem(Pt);
создаёшь и тут же уничтожаешь ! Так нельзя, батенька !
3)
var
AName : String;
//.................
AName := PFName(MyTree.Selected.Data) ^;
Неверное

← →
Ega23 © (2003-12-17 13:37) [2]

var s: String; begin s:=PFName(MyTree.Selected.Data)^; Label1.Caption:= S; end;

← →
Rawman © (2003-12-17 13:45) [3]

т.е. сами данные не пихаются в Node.Data ?

> т.е. сами данные не пихаются в Node.Data ?

их туда "пихает" программист.

> Rawman © (17.12.03 13:45) [3]
> т.е. сами данные не пихаются в Node.Data ?

В Node.Data можно запихнуть указатель на любую структуру/объект.

Добрый День Всем ! У меня вопрос опять про TTreeView Найти похожие ветки