[poli-smen]

Сообщение от Agat330

Собственно, вопрос в сабже.
Пытаюсь содержимое ImageList'a (иконки 16х16) сохранить в один файл.

Сохранение:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
begin
  fs := TFileStream.Create('D:\ImageList1.comp', fmCreate);
  try
    fs.WriteComponent(ImageList1);
  finally
    fs.Free;
  end;
end;

Восстановление:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  fs: TFileStream;
begin
  fs := TFileStream.Create('D:\ImageList1.comp', fmOpenRead or fmShareDenyNone);
  try
    fs.ReadComponent(ImageList1);
  finally
    fs.Free;
  end;
end;