ai3main.pas

一个很好玩的聊天机器人哦！是我的人工智能的作业（有源码）

unit AI3Main;

interface

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

type
  TFrmAI3Main = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmAI3Main: TFrmAI3Main;
  AI3: TAI3;

implementation

{$R *.dfm}

procedure TFrmAI3Main.FormCreate(Sender: TObject);
begin
  AI3 := TAI3.Create;
end;

procedure TFrmAI3Main.FormDestroy(Sender: TObject);
begin
  AI3.Free;
end;

procedure TFrmAI3Main.FormShow(Sender: TObject);
begin
  Edit1.SetFocus;
end;

procedure TFrmAI3Main.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    Memo1.Lines.Add('你：" ' + Edit1.Text + ' "');
    Memo1.Lines.Add('AI: " ' + AI3.Ask(Edit1.Text) + ' "');
    Edit1.Text := '';
  end;
end;

procedure TFrmAI3Main.BitBtn1Click(Sender: TObject);
begin
  Memo1.Lines.Add('AI: " ' + Edit1.Text + ' "');
  AI3.Teach(Edit1.Text);
  Edit1.Text := '';
  Edit1.SetFocus;
end;

end.