Сообщество Чайников

Вопрос

Как записать в файл несколько TImage?

Ответ

procedure TForm1.Button1Click(Sender: TObject);
begin
with TFileStream.Create(FileName,fmCreate or fmOpenWrite) do begin
    WriteComponentRes('IMAGE1', image1);
    WriteComponentRes('IMAGE2', image2);
        Free;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Image1.Free;
    Image2.Free;
    RegisterClass(TImage);
    Image1 := TImage.Create(Self);
    Image2 := TImage.Create(Self);
  with TFileStream.Create(FileName, fmOpenRead) do begin
  ReadComponentRes(Image1);
  ReadComponentRes(Image2);
        Free;
    end;
    Image1.Parent:= Self;
    Image2.Parent:= Self;
    UnregisterClass(TImage);
end;

Из конференции Delphi