assistant/AssistantActionTree.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
46
47
48
49
{**
@Abstract Assistant action tree
@Author Prof1983 <prof1983@ya.ru>
@Created 14.08.2007
@LastMod 16.03.2012
}
unit AssistantActionTree;

interface

uses
  AilCode;

type //** Äåéñòâèå
  TAction = class
  private
      //** Âûïîëíÿåìûé êîä
    FCode: TAilCode;
  public
      //** Âûïîëíÿåìûé êîä
    property Code: TAilCode read FCode write FCode;
  end;

type //** Óçåë äåéñòâèÿ
  TActionNode = class
  private
    // Ñïèñîê èçìåíåíèÿ ïàðàìåòðîâ êîòîðûå ïðîèçîéäóò, åñëè âûïîëíèòü ýòî äåéñòâèå
    //FChanges:
    // Âîçìîæíûå âàðèàíòû äàëüíåéøèõ äåéñòâèé
    //FChildActions:
    // Íåîáõîäèìûå óñëîâèÿ äëÿ âûïîëíåíèÿ ýòîãî äåéñòâèÿ
    //FConditions:
    // Äðóãèå ïàðàìåòðû (íàïðèìåð âðåìÿ âûïîëíåíèÿ)
    // ...
    // Ñàìî äåéñòâèå
    //FAction
  end;

type //** Äåðåâî ïîñëåäîâàòåëüíîñòè äåéñòâèé (äåðåâî ðåøåíèé)
  TActionTree = class
  private
    FRoot: TActionNode;
  public
    property Root: TActionNode read FRoot;
  end;

implementation

end.