Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 6 284

Раздел: Delphi » Работа с компонентами и библиотеками
/ вопрос открыт /

Народ, помогите плизз
сохраняю компонент в файл вот так:

(1)

при чтении дочерние объекты пропадают

(2)

вроде и Owner указываю при добавлении объекта на ScrollBox, прям беееееееееееддддддддддааааааааааааааааааа

Приложение:
  1. 1)
  2.  
  3. FS := TFileStream.Create(FileName, fmCreate);
  4. try
  5. Writer := TWriter.Create(FS, 256);
  6. try
  7. Writer.Root :=Component;
  8. Writer.WriteComponent(Component);
  9.  
  10. finally
  11. Writer.Free;
  12. end;
  13. finally
  14. FS.Free;
  15. end;
  16.  
  17.  
  18. 2)
  19. FS := TFileStream.Create(FileName, fmOpenRead);
  20. try
  21. Reader := TReader.Create(FS, 256);
  22. try
  23. Reader.Root := Component.Owner;
  24. Reader.Parent := TControl(Component).Parent;
  25. //FreeAndNil(Component);
  26. Reader.BeginReferences;
  27. try
  28. Component := Reader.ReadComponent(Nil);
  29. Result := Component;
  30. showmessage(Component.Name+inttostr(Component.ComponentCount));
  31. finally
  32. Reader.FixupReferences;
  33. Reader.EndReferences;
  34. end;
  35. finally
  36. Reader.Free;
  37. end;
  38. finally
  39. FS.Free;
  40. end;


Казаков Николай Константинович Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Казаков Николай Константинович (статус: 1-ый класс)
Вопрос отправлен: 18 октября 2012, 16:40
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 4; последнее сообщение — 19 октября 2012, 11:56; участников в обсуждении: 2.
min@y™

min@y™ (статус: Доктор наук), 18 октября 2012, 16:58 [#1]:

Для начала открой сохранённый файл и посмотри, чо там образовалось.

З.Ы. А ваще я этими примочками не пользуюсь. Мне XML проще.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Казаков Николай Константинович

Казаков Николай Константинович (статус: 1-ый класс), 19 октября 2012, 11:27 [#2]:

да в файлике все вроде нормально, а с xml надо все ручками прописывать все свойства или есть что-то наподобие WriteComponentToXMLFile??
min@y™

min@y™ (статус: Доктор наук), 19 октября 2012, 11:54 [#3]:

Цитата (Казаков Николай Константинович):

или есть что-то наподобие WriteComponentToXMLFile??

Вот эту функцию и надо написать ручками, чтобы потом рекурсивно вызывать.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
min@y™

min@y™ (статус: Доктор наук), 19 октября 2012, 11:56 [#4]:

Перед тем, как задать вопрос, надо было сходить вот сюда.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 31 октября 2025, 11:29
Выполнено за 0.02 сек.