сохранение компонента в файл

[BESS]

требуется сохранить в один файл текущее состояние компонента и динамический массив записей, и само собой восстановить все это из файла... как это реализовать литературу перерыл все что нашел выдает ошибки подскажите реализацию данной задачи.

[Stilet]

текущее состояние компонента

Ну проще написать процедурку которая каждое свойство переводит в скажем строку и записывает в файл (Для этого рекомендуется ИНИ файлы)

и динамический массив записей

В цикле сабо самой разумеется )

[Izhic]

Я пологаю это можно сделать и через TStream. По крайне мере для record =100% делал.
А вот для компонентов, возможно поможет статья или статьи

Stilet А еще проще Для Record простой Write в типизированный файл ).

Как то так дам Ответ возникает, когда появляется задача. +1 ))

[Stilet]

По крайне мере для record =100% делал.

А еще проще Для Record простой Write в типизированный файл ).

[BESS]

каждое свойство в ини файл это жесть компонент ttreeview да и плюс нужно в тот же файл записать и массив
идеально было бы через tstream что то вроде дампа этих участков памяти но как это сделать без поняттия .... это вобще реально для человека с с средними возможностями? можно примерсик или ссылочку на пример все что искал пробывал дает ошибку..

[Пепел Феникса]

вообще то у tstream есть метод WriteComponent ReadComponent
попробуйте использовать их
(проверил на Лейбле и на ТриВиеве..работает)
единственное что не знаю...это можно ли несколько компонент в один файл пихать(хотя это решается связкой Мемори+Файл стримы)

[Izhic]

можно. Это определённо. Заисывется ведь просто информация. И Она ни коем образом не пересекается.

[BESS]

вот код сохранения

procedure TForm1.Button2Click(Sender: TObject);
var stream:TFileStream;
begin
SaveDialog1.Execute;
try
     Stream := TFileStream.Create(SaveDialog1.FileName, fmOpenReadWrite);
   except
     Stream := TFileStream.Create(SaveDialog1.FileName, fmCreate);
   end;
stream.WriteComponent(TreeView1);
stream.WriteBuffer(pages,SizeOf(pages));
stream.free;
end;

вот чтения

procedure TForm1.Button3Click(Sender: TObject);
var stream:TFileStream;
begin
OpenDialog1.Execute;
stream:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
stream.ReadComponent(TreeView1);
stream.ReadBuffer(pages,sizeof(pages));

end;

и не работает... что я сделал не так?

[Пепел Феникса]

попробуйте воспользоватся связкой Мемори и файл стрим
(то есть пишете компонент в Мемори стрим, потом в файл стрим пишете длину мемори стрима(с компонентом) и далее пишете на эту длинну содержимое мемори стрима...также лучше и данные сохранять(для дин массивов стоит и их длинну брать) чтение аналогично...то есть читаете длинну потом считываете нужное кол-во байт в мемори стрим а из него уже берете компонент)

код пока написать не могу(Дельфя глюканула, но вылечю и напишу)

[BESS]

Сообщение от Пепел Феникса

код пока написать не могу(Дельфя глюканула, но вылечю и напишу)

буду очень благодарен