Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.30;
Скачать: CL | DM;

Вниз

Добрый День Всем ! У меня вопрос опять про 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 ?


 
Skier ©   (2003-12-17 13:46) [4]


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

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


 
Ega23 ©   (2003-12-17 14:02) [5]


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

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



Страницы: 1 вся ветка

Текущий архив: 2003.12.30;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.031 c
6-99692
leonidus
2003-10-09 22:28
2003.12.30
Вопрос по idHTTP


3-99438
snake
2003-12-03 17:55
2003.12.30
Как узнать есть ли в mdb файле пароль?


1-99628
Moro
2003-12-17 00:19
2003.12.30
Мультипоточность


1-99522
Sanad
2003-12-16 15:02
2003.12.30
как в RichEdit е курсор поставить мышой в любое место


1-99570
Alex-chainik
2003-12-15 09:58
2003.12.30
Подобие TasBar в Windows