Added gif videos

Author: penavon

Images/ListsAndStrings.gif

@@ -9,6 +9,8 @@
 // email: hsauro@gmail.com
 
 
+// Defines the Abstract Syntax Tree. All nodes are derived from TASTNode
+
 interface
 
 Uses SysUtils, Classes, Generics.Collections, uASTNodeType, uListObject;
@@ -337,7 +339,6 @@ implementation
 Uses StrUtils, RTTi;
 
 
-
 procedure TChildNodes.freeChildNodes;
 begin
    for var i := self.count - 1 downto 0 do
@@ -449,18 +450,6 @@ constructor TASTSlice.Create (lower, upper : TASTNode);
 
 destructor TASTSlice.Destroy;
 begin
-  // ntSlideEqual if both nodes point to the same ASTNode
-  // Therefore only free one of them
-  //if upper.nodeType = ntSliceEqual then
-  //   begin
-  //   lower.Free;
-  //   exit;
-  //   end
-  //else
-  //   begin
-  //   lower.free;
-  //   upper.free;
-  //   end;
   lower.free;
   upper.free;
   inherited;

Images/basics.gif

@@ -130,7 +130,7 @@ constructor TListMethods.Create;
   methodList.Add(TMethodDetails.Create ('append', 1, 'Append the element to the list: var.append (a, 3.14)', append));
   methodList.Add(TMethodDetails.Create ('remove', 1, 'Remove an element from a list with given index: var.remove (4)', remove));
   methodList.Add(TMethodDetails.Create ('sum',    0, 'Find the sum of values in a list. var.sum ()', getSum));
-  methodList.Add(TMethodDetails.Create ('pop',    1, 'Remove the last element from a list: var.pop (list)', removeLastElement));
+  methodList.Add(TMethodDetails.Create ('pop',    0, 'Remove the last element from a list: var.pop ()', removeLastElement));
   methodList.Add(TMethodDetails.Create ('max',    0, 'Find the maximum value is a 1D list of values: var.max ()', getMax));
   methodList.Add(TMethodDetails.Create ('min',    0, 'Find the minimum value is a 1D list of values: var.min ()', getMin));