【delphi开源代码栏目提醒】：网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“CFSJJG.pas”一文，供大家参考学习

    unit CFSJJG;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, TFlatButtonUnit, TFlatRadioButtonUnit, TFlatGroupBoxUnit,inifiles;
    
    type
      TSZSJJG = class(TForm)
        FlatGroupBox1: TFlatGroupBox;
        RB1: TFlatRadioButton;
        RB2: TFlatRadioButton;
        RB3: TFlatRadioButton;
        RB4: TFlatRadioButton;
        RB5: TFlatRadioButton;
        FlatButton1: TFlatButton;
        FlatButton2: TFlatButton;
        procedure FlatButton2Click(Sender: TObject);
        procedure FlatButton1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      SZSJJG: TSZSJJG;
    
    implementation
    
    {$R *.dfm}
    
    procedure TSZSJJG.FlatButton2Click(Sender: TObject);
    begin
    close;
    end;
    
    procedure TSZSJJG.FlatButton1Click(Sender: TObject);
    var
      tempconfig:Tinifile;
      InifileName:String;
    begin
      try
        InifileName :=ExtractFilePath(Application.ExeName)+'Config.ini';
        if FileExists(InifileName) then
        begin
          tempconfig:=TIniFile.Create(InifileName );
          if RB1.Checked then
            tempconfig.WriteString('springtime','springtime',inttostr(15*60*1000))
          else
          if RB2.Checked then
            tempconfig.WriteString('springtime','springtime',inttostr(30*60*1000))
          else
          if RB3.Checked then
            tempconfig.WriteString('springtime','springtime',inttostr(60*60*1000))
          else
          if RB4.Checked then
            tempconfig.WriteString('springtime','springtime',inttostr(120*60*1000))
          else
          if RB5.Checked then
            tempconfig.WriteString('springtime','springtime','0');
        end;
      finally
        TempConfig.UpdateFile ;
        tempconfig.Free;
        close;
      end;
    end;
    
    end.