jsq.pas

来自「某计算机系本科学生做的加密设计及实现」· PAS 代码 · 共 55 行

unit jsq;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Edit3: TEdit;
    Label2: TLabel;
    Button1: TButton;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses
  uRegTable;
{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9',#8]) then
    key:=#0;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if edit1.Text='' then
    edit1.Text:='0';
  if edit2.Text='' then
    edit2.Text:='0';
  edit3.Text:=inttostr(strtoint(edit1.Text)*strtoint(edit2.Text));
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

end.