option.pas

轻轻松松背单词软件源码

unit Option;

interface

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

type
  TFrmOpt = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    SpinEdit1: TSpinEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    SpinEdit2: TSpinEdit;
    Label7: TLabel;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmOpt: TFrmOpt;

implementation

uses TopEdit;
{$R *.dfm}

procedure TFrmOpt.FormShow(Sender: TObject);
var
  Tempstr: string;
begin
  Tempstr := Reg.ReadString('filename');
  Label1.Caption := '您正在学习--' + Tempstr;
  Label2.Caption := '共有单词' + inttostr(CurrentString.Count) + '个';
  SpinEdit1.Value := Reg.ReadInteger('array');
  Label5.Caption := '共分为' + inttostr((CurrentString.Count div SpinEdit1.Value)
    + 1) + '组';
  SpinEdit2.Value := Reg.ReadInteger('number');
  SpinEdit2.MaxValue := (CurrentString.Count div SpinEdit1.Value) + 1;
end;

procedure TFrmOpt.SpinEdit1Change(Sender: TObject);
begin
  if (SpinEdit1.Text <> '') and (length(SpinEdit1.Text) < 4) and (SpinEdit1.Value
    > 0) then
  begin
    Label5.Caption := '共分为' + inttostr((CurrentString.Count div
      SpinEdit1.Value) + 1) + '组';
    SpinEdit2.Value := Reg.ReadInteger('number');
    SpinEdit2.MaxValue := (CurrentString.Count div SpinEdit1.Value) + 1;
  end;
end;

procedure TFrmOpt.BitBtn1Click(Sender: TObject);
begin
  Reg.WriteInteger('array', SpinEdit1.Value);
  Reg.WriteInteger('number', SpinEdit2.Value);
  frmShow.StartAction;
end;

end.