Dephi中资源文件的应用

领测软件测试网

　　TForm1=class(TForm)  

　　Image1:TImage;  

　　Timer1:TTimer;  

　　procedure FormCreate(Sender:TObject);  

　　procedure Timer1Timer(Sender:TObject);  

　　private  

　　{Privatedeclarations}  

　　public  

　　{Publicdeclarations}  

　　end;  

　　var  

　　Form1:TForm1;  

　　implementation  

　　var  

　　wicon:array[0..5] of Ticon;  

　　//建立TICON类型的数组存储ICON文件  

　　idx:integer;  

　　{$R*.DFM}  

文章来源于领测软件测试网 https://www.ltesting.net/