Форум: "Основная";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];

Вниз

Сохранение 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;

---

← →
Vir ©   (2005-07-23 16:16) [6]

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

---

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

> tvArticle.FullExpand;

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

---

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

Форум: "Основная";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.013 c