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




Вниз

Сохранение иерархической структуры. 


DenKop   (2002-01-30 23:17) [0]

Есть структура такого типа: Год.Месяц.День
Например: 2001.Март.23
Кол-во лет,месяцев и дней не определно,т.е. в одном году необязательно должно быть 12 месяцев, какие то месяца могут отсутствовать.Не подскажет ли кто алгоритм для сохранения такой структуры в файле.Заранее благодарен.



Фэ   (2002-01-30 23:37) [1]

2001
Январь
01
02
30
Февраль
28
Декабрь
15
16
2002

т.д

Структрура TTreeView
LoadFromFile
SaveToFile



Walker_sw   (2002-01-31 06:28) [2]

хм... попробуй так (если я правильно понял)

type
TMyString = String[12]; //12 символов тебе хватит под название любого месяца

type
MyStruct = record
year: Word;
Month: TMyString;
Day: Byte;
end;


если файл типизированный, например File Of MyStruct, то проблемы возникают, когда ты поля своей структуры объявляешь типом String, т.к. переменные этого типа не имеют заранее оговорённой длины.



DenKop   (2002-02-01 00:44) [3]

Идея Walker_sw интересная, попробую, а про сохранение структуры в TTreeView я в общем не подумал. Всем спасибо.

>>SoftOne я выразился вполне понятно, я думаю это вы меня не поняли, а не я задал непонятный вопрос.



Ura   (2002-02-01 12:09) [4]

А можно попробовать ini файл
[ год 1 + месяц 1 ]
число 1 = value 1
число 2 = value 2
[ год х + месяц х]
число 1 = value




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




Наверх





Память: 0.72 MB
Время: 0.07 c
7-42886           amamed_3071           2001-11-09 13:41  2002.02.14  
Как Форму сохранит в DLL


6-42827           Lamok                 2001-11-22 00:20  2002.02.14  
TServerSocket


1-42778           Romul                 2002-01-29 10:24  2002.02.14  
Как изменить цвет заголовка окна?


1-42793           raspirator            2002-01-30 21:20  2002.02.14  
Как конвертировать!!!


1-42810           Анатолий              2002-02-01 07:10  2002.02.14  
Шрифт