如何将Imagelist里的图片存入文件？如何将图片从文件载入ImageList?
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TFileStream *FileStream ;
FileStream=new TFileStream("C:\\1.dat",fmCreate);
FileStream->WriteComponent(ImageList1);
FileStream->Free();
}
//---------------------------------------------------------------------------
//#include "systobj.h"
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TFileStream *FileStream ;
//RegisterClass(TImageList);
FileStream=new TFileStream("C:\\1.dat",fmOpenRead);
(TComponent *)(ImageList1) =FileStream->ReadComponent(ImageList1);
FileStream->Free();
}
