assistant/AssistantEngine.pas at master · prof1983/assistant · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
{**
@Abstract Assistant engine
@Author Prof1983 <prof1983@ya.ru>
@Created 15.08.2007
@LastMod 16.03.2012
}
unit AssistantEngine;

interface

uses
  AssistantEnviromentObj, AssistantVirtualMachine;

type
  TAssistantEngine = class
  private
      //** Ñðåäà îáèòàíèÿ àãåíòîâ
    FEnviroment: TAssistantEnviroment;
      //** Âèðòóàëüíàÿ ìàøèíà ôóíêöèîíèðîâàíèÿ ñðåäû äëÿ àãåíòîâ
    FVirtualMachine: TAssistantVirtualMachine;
  public
    procedure Initialize();
  public
      //** Ñðåäà îáèòàíèÿ àãåíòîâ
    property Enviroment: TAssistantEnviroment read FEnviroment;
      //** Âèðòóàëüíàÿ ìàøèíà ôóíêöèîíèðîâàíèÿ ñðåäû äëÿ àãåíòîâ
    property VirtualMachine: TAssistantVirtualMachine read FVirtualMachine;
  end;

implementation

{ TAssistantEngine }

procedure TAssistantEngine.Initialize();
begin
  //TStartForm.AddToLog('Èíèöèàëèçàöèÿ âèðòóàëüíîé ìàøèíû (VirtualMachine)');
  // Ñîçäàòü âèðòóàëüíóþ ìàøèíó
  FVirtualMachine := TAssistantVirtualMachine.Create();

  //TStartForm.AddToLog('Èíèöèàëèçàöèÿ âèðòóàëüíîé ñðåäû (Enviroment)');
  FEnviroment := TAssistantEnviroment.Create();
  FVirtualMachine.Enviroment := FEnviroment;
end;

end.