tk_set.pas

对金智能试卷软件的功能补充

unit tk_set;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Spin,IniFiles;

type
  Tfrmset = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    SpinEdit1: TSpinEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    Button1: TButton;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmset: Tfrmset;

implementation

{$R *.dfm}

procedure Tfrmset.Button1Click(Sender: TObject);
var
     myinifile : TIniFile;
     Range     : string;
begin
      myinifile:=Tinifile.create(ExtractFilePath(Application.ExeName)+'tkaid.ini');

       if  RadioButton1.Checked then
           myinifile.WriteString('OUT_SET','STYLE','3');
       if  RadioButton2.Checked then
           myinifile.WriteString('OUT_SET','STYLE','1');
       if  RadioButton3.Checked then
           myinifile.WriteString('OUT_SET','STYLE','2');

       if  combobox1.Text = 'Add' then
           myinifile.WriteString('TK_SET','Action','Add');
       if  combobox1.Text = 'Delete' then
           myinifile.WriteString('TK_SET','Action','Delete');

       myinifile.WriteString('TK_SET','Count',inttostr(spinedit1.Value));

       Range:='';
       if  checkbox1.Checked then
           Range := Range + '$1$';
       if  checkbox2.Checked then
           Range := Range + '$2$';
       if  checkbox3.Checked then
           Range := Range + '$3$';
       if  checkbox4.Checked then
           Range := Range + '$4$';
       if  checkbox5.Checked then
           Range := Range + '$5$';
       if  checkbox6.Checked then
           Range := Range + '$6$';
       if  checkbox7.Checked then
           Range := Range + '$7$';
       if  checkbox8.Checked then
           Range := Range + '$8$';
       if  checkbox9.Checked then
           Range := Range + '$9$';
       if  checkbox10.Checked then
           Range := Range + '$10$';
       if  checkbox11.Checked then
           Range := '$1$2$3$4$5$6$7$8$9$10$';


       myinifile.WriteString('TK_SET','Range',Range);
       myinifile.Free;
       self.close;

end;

procedure Tfrmset.Button2Click(Sender: TObject);
begin

end;

{读取设置文件内容}

procedure Tfrmset.FormCreate(Sender: TObject);
var
     myinifile : TIniFile;
     Range     : string;
 
begin
       myinifile:=Tinifile.create(ExtractFilePath(Application.ExeName)+'tkaid.ini');

       if  myinifile.ReadString('OUT_SET','Style','')= '3' then
           RadioButton1.Checked := true;

       if  myinifile.ReadString('OUT_SET','Style','')= '1' then
           RadioButton2.Checked := true;

       if  myinifile.ReadString('OUT_SET','Style','')= '2' then
           RadioButton3.Checked := true;

       if  myinifile.ReadString('OUT_SET','Style','')= '' then
           begin
               RadioButton1.Checked :=false;
               RadioButton2.Checked :=false;
               RadioButton3.Checked :=false;
           end;


       if  myinifile.ReadString('TK_SET','Action','')='Add' then
           combobox1.Text := 'Add';

       if  myinifile.ReadString('TK_SET','Action','')='Delete' then
           combobox1.Text := 'Delete';

       if  myinifile.ReadString('TK_SET','Action','')='' then
           combobox1.Text := '';

       spinedit1.Value:=strtoint(myinifile.ReadString('TK_SET','Count','0')) ;

          Range := myinifile.ReadString('TK_SET','Range','');

       if  pos('1',Range)<> 0 then
           checkbox1.Checked := true
       else
           checkbox1.Checked := false;

       if  pos('2',Range)<> 0 then
           checkbox2.Checked := true
       else
           checkbox2.Checked := false;

       if  pos('3',Range)<> 0 then
           checkbox3.Checked := true
       else
           checkbox3.Checked := false;

       if  pos('4',Range)<> 0 then
           checkbox4.Checked := true
       else
           checkbox4.Checked := false;

       if  pos('5',Range)<> 0 then
            checkbox5.Checked := true
       else
           checkbox5.Checked := false;

       if  pos('6',Range)<> 0 then
           checkbox6.Checked := true
       else
           checkbox6.Checked := false;

       if  pos('7',Range)<> 0 then
           checkbox7.Checked := true
       else
           checkbox7.Checked := false;

       if  pos('8',Range)<> 0 then
           checkbox8.Checked := true
       else
           checkbox8.Checked := false;

       if  pos('123456789',Range)<> 0 then
           checkbox9.Checked := true
       else
           checkbox9.Checked := false;

       myinifile.Free;
       self.close;


end;

end.