Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.03.16;
Скачать: CL | DM;

Вниз

TTreeView и данные   Найти похожие ветки 

 
н.сергей   (2008-02-16 18:44) [0]

У меня есть TTreeView с данными в виде "папок и данных". Во время работы программы я добавляю данные в TreeView, делаю я это приблизительно так:

 TTreeView.Items.AddChildObject(..., ZText, Data);

Data - это соответсвенно переменная типа TData

 TData = packed record
  DeltaStr: string[18];
  Mynt: Word;
  ...
  OtherData: POtherData;
 end;
 PData = ^TData;

 TOtherData = array of TOtherOtherData;
 POtherData = ^TOtherData;

 TOtherOtherData = packed record
  DataType: Byte;
  DataLen: Int64;
 end;

 TDataType1 = packed record
  Value: string[500];
  IntValue: Integer;
  ...
 end;


Мне нужно сделать возможность сохранить все данные из дерева в файл и загрузить их потом обратно. Но как это хорошо сделать я не очень пердставляю.
Ещё интересный момент, DataType: Byte - отвечает за тип данные, если он например = 1 то, в содержимим будет TDataType1, если например = 2, то будут бинарные данные которые находятся на диске в виде файла на данный момент. Но в момент сохранения необходимо добавить содержимое этого файла в файл со всеми остальными данными. А во время открытия извлеч из файла и сохранить на диск.

У меня конечно есть какие-то идеи, но хочется сделать это по умному. Например я совсем не догадываюсь как сохранить структуру данных и папок, что в какой папке и какая папка в какой лежит и где какие данные.

Что посоветуете?


 
Amoeba ©   (2008-02-16 19:53) [1]


> POtherData = ^TOtherData;
>

Вот это убери и больше такое (указатель  на указатель) не пиши и никому никогда не показывай.


> не догадываюсь как сохранить структуру данных и папок
>


А зачем это нужно сохранять и потом загружать?



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

Текущий архив: 2008.03.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
2-1203344851
ван
2008-02-18 17:27
2008.03.16
packed record


2-1203021069
Rentner
2008-02-14 23:31
2008.03.16
Перемещение формы, у которой свойство BorderStyle:=bsNone


15-1202189806
tButton
2008-02-05 08:36
2008.03.16
длительный процесс (риторический вопрос)


15-1202400651
AntonUSAnoV
2008-02-07 19:10
2008.03.16
Проблема со сторонним компонентом


2-1203347003
savyhinst
2008-02-18 18:03
2008.03.16
CGI