unit uMain;

interface

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

type
  TfrmMain = class(TForm)
    lbledtName: TLabeledEdit;
    lbledtKey: TLabeledEdit;
    btnCopy: TButton;
    procedure btnCopyClick(Sender: TObject);
    procedure lbledtNameChange(Sender: TObject);
  private
    { Private declarations }
    procedure CopyKey(f:string);
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.CopyKey(f:string);
begin   
  if Trim(lbledtKey.Text)<>'' then
  begin
    SetClipboard(Format(f,[lbledtName.Text,lbledtKey.Text]));
    ShowMessage('OK!');
  end;
end;

procedure TfrmMain.lbledtNameChange(Sender: TObject);
begin
  if Trim(lbledtName.Text)<>'' then
    lbledtKey.Text:=calcReginsterCode(lbledtName.Text)
  else
    lbledtKey.Text:='';
end;

procedure TfrmMain.btnCopyClick(Sender: TObject);
begin
  CopyKey('Book.setKey(''%s'',''%s'');');
  ShowMessage('已复制到剪切板！Book初始化时使用此代码！');
end;

end.