Changeset 68 for branches/Transpascal/Compiler/Produce/UProducerTreeView.pas

Timestamp:

Oct 18, 2010, 2:14:52 PM (14 years ago)

Author:

george

Message:

• Modified: Advanced record parsing.

File:

• branches/Transpascal/Compiler/Produce/UProducerTreeView.pas (modified) (1 diff)

branches/Transpascal/Compiler/Produce/UProducerTreeView.pas

@@ -298 +298 @@
   I: Integer;
 begin
-  if TypeRecord.Items.Count > 0 then begin
-    for I := 0 to TypeRecord.Items.Count - 1 do
-    with TType(TypeRecord.Items[I]) do
+  if TypeRecord.CommonBlock.Types.Count > 0 then begin
+    for I := 0 to TypeRecord.CommonBlock.Types.Count - 1 do
+    with TType(TypeRecord.CommonBlock.Types[I]) do
     if not System then
-      AddNodeType(Node, TType(TypeRecord.Items[I]));
+      AddNodeType(Node, TType(TypeRecord.CommonBlock.Types[I]));
   end;
 end;