Форум: "Основная";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];
ВнизДобрый День Всем ! У меня вопрос опять про 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c