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}  

文章來源于領測軟件測試網 http://www.kjueaiud.com/