Сохранение TreeView и Data

← →
N!tro © (2005-07-23 08:09) [0]

Сохраняю TreeView в ini-файл. Подскажите как можно сохранить свойство дата (запись), чтобы при загрузке программы всё восстанавливалось.]
Вот так сохраняю:
procedure TForm1.Button1Click(Sender: TObject); var ini: TIniFile; s: TMemoryStream; begin S := TMemoryStream.Create; Ini := TiniFile.Create("c:\temp\demo.ini"); TreeView.SaveToStream(S); s.Seek(0, soFromBeginning); ini.WriteBinaryStream("1", "1", S); ini.Free; s.Free; end;

← →
Vir © (2005-07-23 14:01) [1]

А что ты имеешь в виду под свойством Дата?
Текущию дату или TTreeNode.Data?

← →
N!tro © (2005-07-23 14:48) [2]

TTreeNode.Data (в вопросе же указал: свойство дата (запись))
Запись состоит из 2 полей: String, Integer

← →
Vir © (2005-07-23 15:42) [3]

Ну тут ничего стандартного не выйдет, дело в том что TTreeNode.Data это pointer и соответсвенно TreeView.SaveToStream максимум что может это сохранить в поток адрес этого указателя, что тебе при новой загрузке приложения совершенно ничего не даст.

Потому выход следующий - писать процедуру сохранения и загрузки самому. Кусков вода приводить не буду но общие принципы расскажу.
Придеться обходить все ветви последовательно и сохранять их параметры, причем по мимо нужных лично тебе (текст, данные, может еще что) обязательно нужно сохранять еще и данные о том какая ветвь владеет этой ветвью.

самы удобным считаю сохранять данные в табличном виде, что-то типа:
номер ветви| номер ее владельца| текст | Data.Sting| Data.Int |

Благо при использовании TreeView не обязателен рекурсивный обход ветвей можно взять так:
For i:=0 to TreeView.Items.Count-1 do begin //Save TreeView.Items[i] .... end;

Ну загрузка по аналогии.

← →
N!tro © (2005-07-23 15:52) [4]

> обязательно нужно сохранять еще и данные о том какая ветвь
> владеет этой ветвью

Что-то не понял.
Делаю так:
procedure TfmMain.FormCreate(Sender: TObject); var p: PMyRec; f: TStringList; i: Integer; begin tvArticle.FullExpand; f := TStringList.Create(); //здесь хранятся строки f.LoadFromFile(ExtractFilePath(ParamStr(0)) + "Path.txt"); for i := 0 to tvArticle.Items.Count - 1 do begin New(p); P^.path := f.Strings[i]; P^.id := i; //абсолютный номер элемента tvArticle.Items.Item[i].Data := p; end; f.Free; end;
Просто светить "Path.txt" не хочется (он пока в незашифрованном виде хранится)

← →
N!tro © (2005-07-23 16:01) [5]

type PMyRec = ^TMyRec; TMyRec = record Path: string; id: Integer; end;

Ну вбощем верно, тока так у тебя получиться два файла в одном ветви в дугом data к ним - если тебе так удобно...
Кстати tvArticle.FullExpand; можешь не делать, от этого порядок ветвей не меняться.

> tvArticle.FullExpand;

Это дерево разворачивает. Такая задумка

Сохранение TreeView и Data Найти похожие ветки