Changeset 12 for ProtocolBuffers/UMainForm.pas

Timestamp:

Oct 20, 2009, 11:31:33 AM (15 years ago)

Author:

george

Message:

• Fixed: Handling repeated fileds.

File:

• ProtocolBuffers/UMainForm.pas (modified) (4 diffs)

ProtocolBuffers/UMainForm.pas

@@ -94 +94 @@
         Tag := 2;
         ItemType := itString;
-        ItemMode := imOptional;
+        ItemMode := imRepeated;
       end;
       Items.Add(NewItem);
@@ -128 +128 @@
     TPBStringItem(TPBMessageItem(PB.BaseMessage.Items[3]).
       Items[0]).Value := 'Vsetínská';
+//    TPBStringItem(PB.BaseMessage.Items[1]).Value := 'Abc';
+    with TPBRepeatedItem(PB.BaseMessage.Items[1]) do begin
+      Items.Add(nil);
+      Items.Add(nil);
+      Clear(TPBDefinition(Definition.Items[1]));
+      TPBStringItem(Items[0]).Value := 'Test';
+      TPBStringItem(Items[1]).Value := 'Hops';
+    end;
+
     DisplayTree(PB, TreeView1);
     SaveToStream(Stream);
@@ -154 +163 @@
         Tag := 2;
         ItemType := itString;
+        //ItemMode := imRepeated;
         DefaultString := 'Billy Joe';
       end;
@@ -227 +237 @@
   NewNode: TTreeNode;
 begin
-  for I := 0 to Definition.Items.Count - 1 do
-  with TPBDefinition(Definition) do begin
+  for I := 0 to PBRepeated.Items.Count - 1 do
+  with Definition do begin
     NewNode := Node.Owner.AddChild(Node, '');
     if ItemType = itString then begin