读写INI

最新推荐文章于 2023-06-08 00:14:08 发布

转载最新推荐文章于 2023-06-08 00:14:08 发布 · 182 阅读

DELPHI开发专栏收录该内容

194 篇文章

订阅专栏

本文介绍如何使用Delphi通过INI文件保存和读取控件的字体属性，包括字体名称、大小和颜色，并提供了具体的代码实现。

1、EDIT字体，由font属性决定。
2、fron三个重要属性
  （1）Name
  （2）size
  （3）color
3、写入ini

 
             procedure 
             TOldBirthDayFrm
             .
             Button8Click(Sender: TObject);
            
 
             var 
             ini:tinifile;
            
 
             begin
            
 
               
             ini:=tinifile
             .
             Create(INIPath+
             'Config_生日打印.ini'
             );
            
 
               
             ini
             .
             WriteString(
             '标题'
             ,
             '字体'
             ,Edit1
             .
             Font
             .
             Name);
            
 
               
             ini
             .
             WriteIntger(
             '标题'
             ,
             '字体尺寸'
             ,Edit1
             .
             Font
             .
             Size);
            
 
               
             ini
             .
             WriteString(
             '标题'
             ,
             '字体颜色'
             ,ColorToString(Edit1
             .
             Font
             .
             Color));
            
 
               
             ini
             .
             Free;
            
 
             end
             ;
            

4、读出ini

 
             procedure 
             TOldBirthDayFrm
             .
             Button10Click(Sender: TObject);
            
 
             var 
             ini:tinifile;
            
 
             begin
            
 
               
             ini:=tinifile
             .
             Create(INIPath+
             'Config_生日打印.ini'
             );
            
 
               
             Edit1
             .
             Font
             .
             Name:=ini
             .
             ReadString(
             '标题'
             ,
             '字体'
             ,
             '宋体'
             );
            
 
               
             Edit1
             .
             Font
             .
             Size:=ini
             .
             ReadInteger(
             '标题'
             ,
             '字体尺寸'
             ,
             14
             );
            
 
               
             Edit1
             .
             Font
             .
             Color:=StringToColor(ini
             .
             ReadString(
             '标题'
             ,
             '字体颜色'
             ,
             'clRed'
             ));
            
 
               
             ini
             .
             free;
            
 
             end
             ;
            