聪明二休.~dpr

来自「用AIML语言开发的一款中文自动聊天软件」· ~DPR 代码 · 共 50 行

program OperatorChat;

uses
  Forms,
  UDebug in 'UDebug.pas' {DebugForm},
  UPatternMatcher in 'UPatternMatcher.pas',
  UAIMLLoader in 'UAIMLLoader.pas',
  UVariables in 'UVariables.pas',
  UTemplateProcessor in 'UTemplateProcessor.pas',
  UElementFactory in 'UElementFactory.pas',
  UElements in 'UElements.pas',
  UChat in 'UChat.pas' {Chat},
  UBotLoader in 'UBotLoader.pas',
  ULogging in 'ULogging.pas',
  UUtils in 'UUtils.pas';

{$R *.RES}
begin


  Application.Initialize;

  Log:=TLog.Create;
  PatternMatcher:=TPatternMatcher.Create;
  TemplateProcessor:=TTemplateProcessor.Create;
  Memory:=Tmemory.create;
  AIMLLoader:=TAIMLLoader.create;
  BotLoader:=TBotLoader.Create;
  Preprocessor:=TSimpleSubstituter.create;
  //ElementFactory:=TElementFactory.Create; {auto create when loading units}
  //TBotloaderThread.Create(false);

  Application.Title := '聪明一休';
  Application.CreateForm(TChat, Chat);
  Application.CreateForm(TDebugForm, DebugForm);
  Application.Run;


  PatternMatcher.Free;
  TemplateProcessor.Free;

  Memory.Free;
  AIMLLoader.Free;
  BotLoader.Free;
  ElementFactory.Free;
  log.Free;
  preprocessor.Free;

end.