Сохранение и открытие Image (размер и положение) с типизированным файлом

[Лукманов Александр]

Мне нужно сохранить размер и положение Image на форме. А затем расположить Image в сохранённом виде. У меня программа пока даже не сохраняет данные в ini файл. Подскажите плиз как, что и в чём ошибка.



Пытаюсь сохранить параметры Image. После нажатия нажатия на кнопку ошибку не выдаёт, а файл пустой. На форме Image присутствовали.

TPos = record
   Pleft, Ptop, Pwidth, Pheight: Integer;
   Pname: string[255];
   ******
   b:  file of TPos;
   b1: TPos;
   i1: Integer;
   ******
   procedure TForm1.btn2Click(Sender: TObject);
begin

 for  i1:=0 to ComponentCount-1 do    begin
 if Components[i1] is TImage then
  begin
    AssignFile (b, '1.ini');
    Reset  (b);

  b1.Pname :=(Components[i1] as TImage).Name;
  b1.Pleft :=(Components[i1] as TImage).Left;
  b1.Ptop :=(Components[i1] as TImage).top;
  b1.Pwidth :=(Components[i1] as TImage).width;
  b1.Pheight :=(Components[i1] as TImage).Height;
    write (b, b1);
    CloseFile (b);
  end;
end;
end;

Здесь пробую открыть из "пустого" ini файла. Программа почему то меняет размер главной формы.
P.S. размер новой формы никак не связан с Image's

procedure TForm1.btn3Click(Sender: TObject);
begin
AssignFile(b, '1.ini');
for i1:=0  to 2 do begin

TImage.Create(Self);
with TImage(Self) do
begin
  Reset(b);
  read (b, b1);
  Parent:=Form1;
  left:= b1.Pleft;
  top:= b1.Ptop;
  width:= b1.Pwidth;
  Height:= b1.Pheight;
  CloseFile(b);
 { Picture.LoadFromFile('AL.JPG');  }
end;

end;
end;

[Jeni]

Нужно писать with TImage.Create(Self) do

Кстати, если уж использовать ini-файлы, то нужно это делать через класс TIniFile, а так как сделано сейчас, не имеет к ini-файлам никакого отношения.

[Ntlegend]

попробуй так:

//в раздел uses дописать ExtCtrls;

var
  img:TImage;

procedure TForm1.Button1Click(Sender: TObject);
var l:Tstrings;
begin
l:=TStringList.Create;
//проверка на существование файла
if FileExists('Config.th')
 then l.LoadFromFile('Config.th');
//создание "рисунка"
img:=TImage.Create(Self);
img.Parent:=self;
if l.Text=''
 then begin
  l.Free;
  exit;
 end;
//установка параметров
img.Left  := StrToInt(l.Strings[0]);
img.Top   := StrToInt(l.Strings[1]);
img.Width := StrToInt(l.Strings[2]);
img.Height:= StrToInt(l.Strings[3]);
end;

procedure TForm1.Button2Click(Sender: TObject);
var l:Tstrings;
begin
//сохранение параметров в файл
l:=TStringList.Create;
l.Add(IntToStr(img.Left));
l.Add(IntToStr(img.Top));
l.Add(IntToStr(img.Width));
l.Add(IntToStr(img.Height));
l.SaveToFile('Config.th');
l.Free;
end;

[Лукманов Александр]

2Jeni хоть ini, хоть txt, хоть mp3 всё равно не сохраняет.

Нужно писать with TImage.Create(Self) do

вообще не запускается.

2Ntlegend спасибо за идею. Но здесь же сохраняет всего один Image. Да и с типизированным файлом как то удобнее кажется.

[Ntlegend]

Сообщение от Лукманов Александр

Но здесь же сохраняет всего один Image. Да и с типизированным файлом как то удобнее кажется.

я написал как пример.. если тебе наба чтобы было много картинок - то создавай их массивом img: array of TImage;
потом при создании компоненте SetLength(img, Length(img)+1);
и при создании вместо img обращаться к нему уже так img[i] (где i - это номер компонента, начиная с нуля)..
дальше при сохранени в цыкле перебираем этот массив считывая в какуюто структуру нужные поля компонентов.. и далье записыфваем эту структуру на в файл..