Скачать: CL | DM;

Как связать ветки 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;



---

← →
YuRock ©   (2003-12-29 14:52) [2]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c