1、EDIT字体,由font属性决定。 2、fron三个重要属性 (1)Name (2)size (3)color 3、写入ini Delphi/Pascal code ? 1 2 3 4 5 6 7 8 9 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 Delphi/Pascal code ? 1 2 3 4 5 6 7 8 9 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 ;