Как записать в файл несколько TImage
Как записать в файл несколько TImage
Как записать в файл несколько TImage 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;
