Советы по Delphi
TOutline: чтение из файла
Если вы хотите сохранять TOutline, вам нужно обратить внимание на методы SaveToFile и ReadFromFile. Если же вы хотите создать ваш собственный файл (для хранения данных связанных с вашим TOutline), рекомендую воспользоваться TStream (или его потомком -> TFileStream).
У меня тоже были проблемы с хранением TOutline в своем файле. Для этой цели идеально подходит создание записи следующего вида:
|
TSaveNode=record Text: String Index: Longint; Parent: Longint; Data: Pointer end; |
Это вся информация об TOutLine, которую вам нужно сохранить. Вы можете сохранить ее, пройдясь в цикле через все узлы TOutlineNodes и записывая их в поток. Для загрузки всего файла читайте запись за записью и используйте метод TOutline.AddChild. TRecord при этом будет содержать всю необходимую информацию. [001719]
