Changeset 8 for branches/Void/UModel.pas
- Timestamp:
- Nov 9, 2009, 9:47:57 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/Void/UModel.pas
r7 r8 15 15 16 16 TCommand = class 17 Text: string; 17 Name: string; 18 Parameters: TStringList; 19 constructor Create; 20 destructor Destroy; override; 21 end; 22 23 { TBeginEnd } 24 25 TBeginEnd = class 26 Commands: TList; 27 constructor Create; 28 destructor Destroy; override; 29 procedure Clear; 18 30 end; 19 31 … … 24 36 public 25 37 Variables: TList; 26 Commands: TList;38 BeginEnd: TBeginEnd; 27 39 function FindVariableByName(AName: string): TVariable; 28 40 procedure Clear; … … 38 50 begin 39 51 Variables := TList.Create; 40 Commands := TList.Create;52 BeginEnd := TBeginEnd.Create; 41 53 end; 42 54 … … 48 60 TVariable(Variables[I]).Destroy; 49 61 Variables.Destroy; 50 for I := 0 to Commands.Count - 1 do 51 TCommand(Commands[I]).Destroy; 52 Commands.Destroy; 62 BeginEnd.Destroy; 53 63 inherited Destroy; 54 64 end; … … 71 81 TVariable(Variables[I]).Destroy; 72 82 Variables.Clear; 83 BeginEnd.Clear; 84 end; 85 86 87 { TBeginEnd } 88 89 constructor TBeginEnd.Create; 90 begin 91 Commands := TList.Create; 92 end; 93 94 destructor TBeginEnd.Destroy; 95 var 96 I: Integer; 97 begin 98 for I := 0 to Commands.Count - 1 do 99 TCommand(Commands[I]).Destroy; 100 Commands.Destroy; 101 inherited Destroy; 102 end; 103 104 procedure TBeginEnd.Clear; 105 var 106 I: Integer; 107 begin 73 108 for I := 0 to Commands.Count - 1 do 74 109 TCommand(Commands[I]).Destroy; … … 76 111 end; 77 112 113 { TCommand } 114 115 constructor TCommand.Create; 116 begin 117 Parameters := TStringList.Create; 118 end; 119 120 destructor TCommand.Destroy; 121 begin 122 Parameters.Destroy; 123 inherited Destroy; 124 end; 78 125 79 126 end.
Note:
See TracChangeset
for help on using the changeset viewer.