Текущий архив: 2004.03.05;
Скачать: 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 вся ветка
Текущий архив: 2004.03.05;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
