Как связать ветки TreeView c полями записи

← →
SH © (2003-12-29 13:36) [0]

Имеется типизированный файл с записями след. структуры:
------------
TBase = Record FileName,Group:array[0..255] of char; Date:TDate; NumZ:integer; end;
-------------
На основе типиз. файла генерится дерево, его ветви - имена файлов без пути.
Как сделать, чтобы при щелчке на имени файла в дереве, из тип. файла подзагружалась нужная запись, оттуда бралось полное имя (поле FileName), и файл с этим именем выводился в Memo?

← →
YuRock © (2003-12-29 14:49) [1]

У каждого TreeView-итема (TTreeNode) есть свойство Data (тип Pointer), куда ты можешь записывать указатели на структуры типа TBase.

Только для каждой новой структуры создавай ее ч-з GetMem. Удалять по-моему не надо (винда сама удалит).

Только создавай каждую структуру ч-з AllocMem(SizeOf(TBase)) (примерно так):
type PBase = ^TBase; procedure Load; var Data: PBase; Node: TTreeNode; begin while not Eof(f) do begin Data := AllocMem(SizeOf(TBase)); Read(f, Data); ... Node := TreeView1.Items.Add(nil, String(Data.FileName)); Node.Data := Data; end; Data = end; // Событие смены текущего итема procedure ... (Sender: TObject; Node: TTreeNode); begin if Assigned(Node) and Assigned(Node.Data) then Memo1.Lines.LoadFromFile(PBase(Node.Data).Group); end;

Извини за неточный пример (есть синтаксические ошибки и троеточия). Естественно, нужно еще открыть и закрыть файл в процедуре Load.

Как связать ветки TreeView c полями записи Найти похожие ветки