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

[varelik]

Доброго вечера!
Создаю динамически объекты image на форме, могу перемещать их и т.д.
Эти компоненты (каждый из них) имеют индивидуальные свойства: left,top,width,height,tag и т.д.
Далее делаю сохранение компонентов формы в файл, типа Stream.writecomponent, аналогично делаю чтение- в результате все читается ОК,..... НО: если открыть из винды блокнотом файл, куда все сохранилось- то вижу кучу ерунды мегабайт эдак на 5, а я хочу увидеть значения нужных мне свойств(.
Теперь вопрос:
Подскажите пожалуйста, можно ли (и если да, то как) сохранять те свойства компонента, которые мне нужны? и чтобы через блокнот была нормально видна вся инфа?

[BOBAH13]

IniFiles + пишите нужные вам свой-ва практически ответ в вашем же вопросе. Как работать с ini файлами ? Как прочитать/записать свой-во компонента ? Все в сети и на форуме ясно изложено много раз.

[varelik]

BOBAH13, сделал через ини,
на скорую руку особо не думая набил:

IniFile:=TIniFile.Create('project.ini');
with timage1(new) do with IniFile do begin
Height  := writeInteger('timage1(new)','timage1(new).Height',timage1(new).Height);

//на последней строке ошибку выдает - несовпадение типов

что не так делаю?

сорри, разобрался)

Вот только как мне сохранить НЕСКОЛЬКО динамически созданных image, различающихся только своим положением (left,top) на форме в ини-файл?

[BOBAH13]

У контролов VCL есть свой-ва Controls и ControlsCount ( вроде так, по памяти пишу ). Значит, вы их в цикле перебираите, а в ini пишите по следующим правилам.

1. Объявляите переменную типа intgerer - инкремент для формирования имен секций. Прированять к нулю (ну правильно так, а так как хотите).
2. В цикле перебираем контролы и можно сделать проверку if (Controls[i] is TImage) then если тру, тогда увеличиваем наш инкремент и название новой секции для текущего TImage будет типа MySectionName := Format('Image%d', [i{инкремент}]);
3. Как только получили название новой секции для текущего TImage пишем в эту секцию Left, Top, Width, Height и т.п. и так далее для каждого контрола.

Загрузка аналогична, есть возможность открыть ини файл, и прочитать все содержащиеся в нем секции, таким образом вы получите TStrings в котором все наименовая секций, значит вы сможете перебрать и прочитать все секции и данные для каждого TImage

[varelik]

BOBAH13,
чтото не то, не подскажешь, где я ошибся?:

var i:integer; section:string;
-----
for i:=0 to panel1.controlcount-1 do
if panel1.controls[i].classname='timage' then
i:=i+1;
section:=format('image%d',[i]);
inifile.writeinteger('timage',section,panel1.controls[i].left);

У нас принято оформлять код специальным тэгом - кнопочка "#".
Модератор

[BOBAH13]

for i:= 0 to Panel1.ControlCount - 1 do
begin
  if (Panel1.Controls[i] is TImage) then
  begin
    Inc(i);
    Section := Format('Image%d', [i]);
    IniFile.WriteInteger(Section, 'Left', Panel1.Conrols[i].Left);
   end;
end;

Edit:
Ну я образно написал, не думаю... как и писал раньше i то для перечисления контролов, вместе где Section := там вы используите не i, а свой инкремент какой-либо.
На счет Format('Image%d') ну собственно да, не имеет значения, просто для нормального вида

Image1
Image2
Image3
...

[varelik]

боле- менее понятно, вот только на строке inc(i)- ошибка: assigment to forloop variable 'i'-(это типа i нельзя в цикле менять?).
и еще- 'Image%d'- здесь в ковычках что угодно пишется, или есть какойто смысл?

сенкс, с сохранением разобрался