useinifile.pas

学籍管理

{**********************************************************************}
{                    =================================                 }
{                       自定义的读写INI 文件的方法                     }
{                   =================================                  }
{                                    《学籍管理系统》--作者：贺广兵    }
{                                                                      }
{   根据注册表信息帮助用户维护程序安全性。                             }
{                                                                      }
{**********************************************************************}

unit UseIniFile;      //定义一个读写INI文件的单元，用以保存用户设置

interface
uses IniFiles,SysUtils,Forms;

function CreateIniFile:TIniFile;
procedure WriteIniFile(SectionName:String;ItemName:String;ItemResult:String);Overload;
procedure WriteIniFile(SectionName:String;ItemName:String;ItemResult:Integer);Overload;
procedure WriteIniFile(SectionName:String;ItemName:String;ItemResult:Boolean);Overload;
function ReadIniFile(SectionName:String;ItemName:String;ItemResult:String):String;overload;
function ReadIniFile(SectionName:String;ItemName:String;ItemResult:Integer):Integer;overload;
function ReadIniFile(SectionName:String;ItemName:String;ItemResult:Boolean):Boolean;overload;

var
  SysIniFile:TIniFile;
  DesignPacketSize:Integer;
  AutoLinked,ShowTime:Boolean;

implementation

function CreateIniFile: TIniFile; //建立INI文件
var
  FileName:String;
  FilePath:String;
begin
  FilePath:=ExtractFilePath(Application.ExeName);
  if FilePath[Length(FilePath)-1]<>'\' then
  FileName:=FilePath+'\Sys.ini'
  else
  FileName:=FilePath+'Sys.ini';
  Result:=TIniFile.Create(FileName);
end;
procedure WriteIniFile(SectionName:String;ItemName:String;ItemResult:String);
begin                                  //定义三个写INI方法
  SysIniFile:=CreateIniFile;
  SysIniFile.WriteString(SectionName,ItemName,ItemResult);
  SysIniFile.Free;
end;
procedure WriteIniFile(SectionName:String;ItemName:String;ItemResult:Integer);
begin
  SysIniFile:=CreateIniFile;
  SysIniFile.WriteInteger(SectionName,ItemName,ItemResult);
  SysIniFile.Free;
end;
procedure WriteIniFile(SectionName:String;ItemName:String;ItemResult:Boolean);
begin
  SysIniFile:=CreateIniFile;
  SysIniFile.WriteBool(SectionName,ItemName,ItemResult);
  SysIniFile.Free;
end;

function ReadIniFile(SectionName:String;ItemName:String;ItemResult:String):String;
begin                               //定义三个读INI文件方法
  SysIniFile:=CreateIniFile;
  Result:=SysIniFile.ReadString(SectionName,ItemName,ItemResult);
  SysIniFile.Free;
end;
function ReadIniFile(SectionName:String;ItemName:String;ItemResult:Integer):Integer;
begin
  SysIniFile:=CreateIniFile;
  Result:=SysIniFile.ReadInteger(SectionName,ItemName,ItemResult);
  SysIniFile.Free;
end;
function ReadIniFile(SectionName:String;ItemName:String;ItemResult:Boolean):Boolean;
begin
  SysIniFile:=CreateIniFile;
  Result:=SysIniFile.ReadBool(SectionName,ItemName,ItemResult);
  SysIniFile.Free;
end;

end.