Changeset 83 for branches/Transpascal/UProject.pas

Timestamp:

Oct 31, 2010, 9:40:18 PM (14 years ago)

Author:

george

Message:

• Modified: TObjectList replaced by generics templates.

File:

• branches/Transpascal/UProject.pas (modified) (5 diffs)

branches/Transpascal/UProject.pas

@@ -2 +2 @@
 
 {$mode objfpc}{$H+}
+{$MACRO ON}
 
 interface
 
 uses
-  Classes, SysUtils, ListObject, Dialogs, DOM, XMLWrite, XMLRead, FileUtil;
+  Classes, SysUtils, Dialogs, DOM, XMLWrite, XMLRead, FileUtil;
 
 type
@@ -22 +23 @@
   end;
 
+
+  // TListProjectNode = TGObjectList<Integer, TProjectNode>
+  {$DEFINE TGObjectListIndex := Integer}
+  {$DEFINE TGObjectListItem := TProjectNode}
+  {$DEFINE TGObjectListList := TObjectListProjectNode}
+  {$DEFINE TGObjectList := TListProjectNode}
+  {$DEFINE TGObjectListSortCompare := TObjectListSortCompareProjectNode}
+  {$DEFINE TGObjectListStringConverter := TObjectListStringConverterProjectNode}
+  {$DEFINE INTERFACE}
+  {$I 'GenericObjectList.inc'}
+
   { TProjectFile }
 
@@ -37 +49 @@
 
   TProjectGroup = class(TProjectNode)
-    Items: TListObject;
+    Items: TListProjectNode;
     constructor Create;
     destructor Destroy; override;
@@ -61 +73 @@
 implementation
 
+
+{$DEFINE IMPLEMENTATION_USES}
+{$INCLUDE 'GenericObjectList.inc'}
+
+// TListProjectNode = TGObjectList<Integer, TProjectNode>
+{$DEFINE TGObjectListIndex := Integer}
+{$DEFINE TGObjectListItem := TProjectNode}
+{$DEFINE TGObjectListList := TObjectListProjectNode}
+{$DEFINE TGObjectList := TListProjectNode}
+{$DEFINE TGObjectListSortCompare := TObjectListSortCompareProjectNode}
+{$DEFINE TGObjectListStringConverter := TObjectListStringConverterProjectNode}
+{$DEFINE IMPLEMENTATION}
+{$INCLUDE 'GenericObjectList.inc'}
+
 { TProjectGroup }
 
@@ -66 +92 @@
 begin
   inherited;
-  Items := TListObject.Create;
+  Items := TListProjectNode.Create;
 end;