| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как связать ветки TreeView c полями записи [D6, D7, Win2k, WinXP]
SH © (2003-12-29 13:36:00)
Имеется типизированный файл с записями след. структуры:
------------
TBase = Record
FileName,Group:array[0..255] of char;
Date:TDate;
NumZ:integer;
end;
-------------
На основе типиз. файла генерится дерево, его ветви - имена файлов без пути.
Как сделать, чтобы при щелчке на имени файла в дереве, из тип. файла подзагружалась нужная запись, оттуда бралось полное имя (поле FileName), и файл с этим именем выводился в Memo?
YuRock (2003-12-29 14:52:00) [1]
Извини за неточный пример (есть синтаксические ошибки и троеточия). Естественно, нужно еще открыть и закрыть файл в процедуре Load.
YuRock (2003-12-29 14:49:00) [2]
У каждого 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;
| |
