Changeset 12 for ProtocolBuffers/UProtocolBuffers.pas

Timestamp:

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

Author:

george

Message:

• Fixed: Handling repeated fileds.

File:

• ProtocolBuffers/UProtocolBuffers.pas (modified) (2 diffs)

ProtocolBuffers/UProtocolBuffers.pas

@@ -245 +245 @@
 
         if ItemMode = imRepeated then begin
-          TPBRepeatedItem(Items[ItemIndex]).Items.Add(NewItem);
+          TPBRepeatedItem(Self.Items[ItemIndex]).Items.Add(NewItem);
         end else begin
           TPBItem(Self.Items[ItemIndex]).Assign(NewItem);
@@ -490 +490 @@
   I: Integer;
 begin
-  for I := 0 to Items.Count - 1 do
+  for I := 0 to Items.Count - 1 do begin
     TPBItem(Items[I]).Free;
+    if Definition.ItemType = itInteger then begin
+      Items[I] := TPBIntegerItem.Create;
+      TPBIntegerItem(Items[I]).Value := Definition.DefaultInteger;
+    end else
+    if Definition.ItemType = itString then begin
+      Items[I] := TPBStringItem.Create;
+      TPBStringItem(Items[I]).Value := Definition.DefaultString;
+    end else
+    if Definition.ItemType = itMessage then begin
+      Items[I] := TPBMessageItem.Create;
+      TPBMessageItem(Items[I]).Clear(Definition);
+    end;
+  end;
   inherited;
 end;