Delphi 实现Ini文件参数与TEdit和TCheckBox绑定(TSimpleParam)

在实际工作中,常遇到对Ini参数的修改，显示与保存问题。

如果手工写代码，会有很大的工作量。

本例把ini文件的参数与控件绑定起来，以达到方便使用的目的。

本例程共有2个单元

uSimpleParam->TSimpleParam;//本功能

uSimpleList->TSimpleList;用泛型实现的TList，更实用一点

源码下载

 //用法：

 const

   csEditSimpleParam = 'EditSimpleParam';
   csCheckBoxParam = 'CheckBoxParam';

 FIniFile := TIniFile.Create('.\SimpleParams.ini');
 FSimpleParam := TSimpelParam.Create;

 FSimpleParam.IniFile := FIniFile; // 指定 IniFile

 // 绑定控件,并设置默认参数
 FSimpleParam.Binding(edtSimpleParam, csEditSimpleParam).SetInteger();
 FSimpleParam.Binding(chkSimpleParam, csCheckBoxParam).SetBoolean(true);

 // 加载参数
 FSimpleParam.LoadParams;

 FSimpleParam.SaveParams; // 保存参数

 //获取参数
 nSimpleParam := FSimpleParam[csEditSimpleParam].AsInteger;
 bSimleParam := FSimpleParam[csCheckBoxParam].AsBoolean;

 //设置参数
 FSimpleParam[csEditSimpleParam].SetInteger();
 FSimpleParam[csCheckBoxParam].SetBoolean(false);

 unit uSimpleParam;

 interface

 uses
   uSimpleList, Generics.Collections, Vcl.StdCtrls, Vcl.Controls, IniFiles;

 type

   TDefaultType = (dtInteger, dtString, dtBoolean);

   TBaseParam<T: TWinControl> = class
   private
     FCtrl: T;
     FIndent: string;
     FDefaultType: TDefaultType;
     FDefaultInteger: integer;
     FDefaultString: string;
     FDefaultBoolean: boolean;

   public

     function AsInteger: integer; virtual;
     function AsString: string; virtual;
     function AsBoolean: boolean; virtual;

     procedure SetInteger(val: integer); virtual;
     procedure SetString(val: string); virtual;
     procedure SetBoolean(val: boolean); virtual;

     procedure SetDefaultInteger(val: integer);
     procedure SetDefaultString(val: string);
     procedure SetDefaultBoolean(val: boolean);

     procedure Binding(ACtrl: T; AIndent: string); virtual;

   end;

   TEditParam = class(TBaseParam<TEdit>)
   public
     function AsInteger: integer; override;
     function AsString: string; override;
     procedure SetInteger(val: integer); override;
     procedure SetString(val: string); override;
     procedure Binding(ACtrl: TEdit; AIndent: string); override;
   end;

   TCheckBoxParam = class(TBaseParam<TCheckBox>)
   public
     function AsBoolean: boolean; override;
     procedure SetBoolean(val: boolean); override;
     procedure Binding(ACtrl: TCheckBox; AIndent: string); override;
   end;

   TBaseParamList = class(TClassSimpleList < TBaseParam < TWinControl >> )
   public
     function Binding(ACtrl: TWinControl; AIndent: string): TBaseParam<TWinControl>;
   end;

   TSimpelParam = class
     FParamList: TBaseParamList;
   private
     FIniFile: TIniFile;
     FSectionIndent: String;

     procedure SetIniFile(val: TIniFile);
     procedure SetSectionIndent(val: String);
     function Get(AIndent: string): TBaseParam<TWinControl>;

   public

     constructor Create;
     destructor Destroy; override;

     property IniFile: TIniFile read FIniFile write SetIniFile;
     property SectionIndent: String read FSectionIndent write SetSectionIndent;
     property Items[AIndent: string]: TBaseParam<TWinControl> Read Get; default;

     function Binding(ACtrl: TWinControl; AIndent: string): TBaseParam<TWinControl>;

     procedure LoadParams;
     procedure SaveParams;

   end;

 implementation

 uses
   SysUtils;

 function TEditParam.AsInteger: integer;
 begin
   Result := StrToIntDef(FCtrl.Text, );
 end;

 function TEditParam.AsString: string;
 begin
   Result := FCtrl.Text;
 end;

 procedure TEditParam.Binding(ACtrl: TEdit; AIndent: string);
 begin
   inherited;
 end;

 procedure TEditParam.SetInteger(val: integer);
 begin
   inherited;
   if Assigned(FCtrl) then
     FCtrl.Text := IntToStr(val);
 end;

 procedure TEditParam.SetString(val: string);
 begin
   inherited;
   if Assigned(FCtrl) then
     FCtrl.Text := val;
 end;

 function TCheckBoxParam.AsBoolean: boolean;
 begin
   Result := FCtrl.Checked;
 end;

 procedure TCheckBoxParam.Binding(ACtrl: TCheckBox; AIndent: string);
 begin
   inherited;
 end;

 procedure TCheckBoxParam.SetBoolean(val: boolean);
 begin
   inherited;
   if Assigned(FCtrl) then
     FCtrl.Checked := val;
 end;

 { TBaseParam<T> }

 function TBaseParam<T>.AsBoolean: boolean;
 begin

 end;

 function TBaseParam<T>.AsInteger: integer;
 begin

 end;

 function TBaseParam<T>.AsString: string;
 begin

 end;

 procedure TBaseParam<T>.Binding(ACtrl: T; AIndent: string);
 begin
   FCtrl := ACtrl;
   FIndent := AIndent;
 end;

 function TBaseParamList.Binding(ACtrl: TWinControl; AIndent: string): TBaseParam<TWinControl>;
 begin

   Result := nil;

   if ACtrl is TEdit then
     Result := TBaseParam<TWinControl>(TEditParam.Create)
   else if ACtrl is TCheckBox then
     Result := TBaseParam<TWinControl>(TCheckBoxParam.Create);

   if Assigned(Result) then
   begin
     Result.Binding(ACtrl, AIndent);
     Add(Result)
   end;

 end;

 procedure TBaseParam<T>.SetBoolean(val: boolean);
 begin

 end;

 procedure TBaseParam<T>.SetDefaultBoolean(val: boolean);
 begin
   FDefaultBoolean := val;
   FDefaultType := dtBoolean;
 end;

 procedure TBaseParam<T>.SetDefaultInteger(val: integer);
 begin
   FDefaultInteger := val;
   FDefaultType := dtInteger;
 end;

 procedure TBaseParam<T>.SetDefaultString(val: string);
 begin
   FDefaultString := val;
   FDefaultType := dtString;
 end;

 procedure TBaseParam<T>.SetInteger(val: integer);
 begin
 end;

 procedure TBaseParam<T>.SetString(val: string);
 begin

 end;

 { TSimpelParam }

 function TSimpelParam.Binding(ACtrl: TWinControl; AIndent: string): TBaseParam<TWinControl>;
 begin
   Result := FParamList.Binding(ACtrl, AIndent);
 end;

 constructor TSimpelParam.Create;
 begin
   inherited;
   FParamList := TBaseParamList.Create;
   FSectionIndent := 'Main';
 end;

 destructor TSimpelParam.Destroy;
 begin
   FParamList.Free;
   inherited;
 end;

 function TSimpelParam.Get(AIndent: string): TBaseParam<TWinControl>;
 var
   i: integer;
 begin
   Result := nil;
   for i :=  to FParamList.Count -  do
   begin
     if SameText(AIndent, FParamList[i].FIndent) then
     begin
       Result := FParamList[i];
       exit;
     end;
   end;
 end;

 procedure TSimpelParam.LoadParams;
 var
   B: TBaseParam<TWinControl>;
 begin
   if Assigned(FIniFile) then
   begin
     for B in FParamList do
     begin
       if B.ClassName = 'TEditParam' then
       begin

         if B.FDefaultType = dtString then
         begin
           TEdit(B.FCtrl).Text := IniFile.ReadString(FSectionIndent, B.FIndent, B.FDefaultString);
         end
         else if B.FDefaultType = dtInteger then
         begin
           TEdit(B.FCtrl).Text := IntToStr(IniFile.ReadInteger(FSectionIndent, B.FIndent,
             B.FDefaultInteger));
         end;

       end
       else if B.ClassName = 'TCheckBoxParam' then
       begin
         TCheckBox(B.FCtrl).Checked := IniFile.ReadBool(FSectionIndent, B.FIndent,
           B.FDefaultBoolean);
       end;

     end;
   end;
 end;

 procedure TSimpelParam.SaveParams;
 var
   B: TBaseParam<TWinControl>;
 begin
   if Assigned(FIniFile) then
   begin
     for B in FParamList do
     begin
       if B.ClassName = 'TEditParam' then
       begin
         FIniFile.WriteString(FSectionIndent, B.FIndent, TEdit(B.FCtrl).Text);
       end
       else if B.ClassName = 'TCheckBoxParam' then
       begin
         FIniFile.WriteBool(FSectionIndent, B.FIndent, TCheckBox(B.FCtrl).Checked);
       end;
     end;
   end;
 end;

 procedure TSimpelParam.SetIniFile(val: TIniFile);
 begin
   FIniFile := val;
 end;

 procedure TSimpelParam.SetSectionIndent(val: String);
 begin
   FSectionIndent := val;
 end;

 end.

uSimpleParam.pas

代码略长，请耐心看。可以当成面向对象的基础用法来学习。

附：delphi 进阶基础技能说明