Changeset 8 for branches/Void/UModel.pas

Timestamp:

Nov 9, 2009, 9:47:57 AM (15 years ago)

Author:

george

Message:

• Upraveno: Zobecněno uchování definic parametrických povelů v bloku BeginEnd pro potřeby generování do různých jazyků.

File:

• branches/Void/UModel.pas (modified) (6 diffs)

branches/Void/UModel.pas

@@ -15 +15 @@
 
   TCommand = class
-    Text: string;
+    Name: string;
+    Parameters: TStringList;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { TBeginEnd }
+
+  TBeginEnd = class
+    Commands: TList;
+    constructor Create;
+    destructor Destroy; override;
+    procedure Clear;
   end;
 
@@ -24 +36 @@
   public
     Variables: TList;
-    Commands: TList;
+    BeginEnd: TBeginEnd;
     function FindVariableByName(AName: string): TVariable;
     procedure Clear;
@@ -38 +50 @@
 begin
   Variables := TList.Create;
-  Commands := TList.Create;
+  BeginEnd := TBeginEnd.Create;
 end;
 
@@ -48 +60 @@
     TVariable(Variables[I]).Destroy;
   Variables.Destroy;
-  for I := 0 to Commands.Count - 1 do
-    TCommand(Commands[I]).Destroy;
-  Commands.Destroy;
+  BeginEnd.Destroy;
   inherited Destroy;
 end;
@@ -71 +81 @@
     TVariable(Variables[I]).Destroy;
   Variables.Clear;
+  BeginEnd.Clear;
+end;
+
+
+{ TBeginEnd }
+
+constructor TBeginEnd.Create;
+begin
+  Commands := TList.Create;
+end;
+
+destructor TBeginEnd.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to Commands.Count - 1 do
+    TCommand(Commands[I]).Destroy;
+  Commands.Destroy;
+  inherited Destroy;
+end;
+
+procedure TBeginEnd.Clear;
+var
+  I: Integer;
+begin
   for I := 0 to Commands.Count - 1 do
     TCommand(Commands[I]).Destroy;
@@ -76 +111 @@
 end;
 
+{ TCommand }
+
+constructor TCommand.Create;
+begin
+  Parameters := TStringList.Create;
+end;
+
+destructor TCommand.Destroy;
+begin
+  Parameters.Destroy;
+  inherited Destroy;
+end;
 
 end.