Ignore:
Timestamp:
Oct 12, 2009, 12:52:28 PM (15 years ago)
Author:
george
Message:
  • Modified: Enhanced handling of submessage and string wire types.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • ProtocolBuffers/UMainForm.pas

    r9 r10  
    2222    procedure Button1Click(Sender: TObject);
    2323    procedure Button2Click(Sender: TObject);
     24    procedure Button3Click(Sender: TObject);
    2425    procedure FormCreate(Sender: TObject);
    2526    procedure FormDestroy(Sender: TObject);
    … …  
    6162end;
    6263
     64procedure TMainForm.Button3Click(Sender: TObject);
     65begin
     66
     67end;
     68
    6369procedure TMainForm.Button1Click(Sender: TObject);
    6470var
    … …  
    7379      Name := 'SampleMessage';
    7480      NewItem := TPBIntegerItem.Create;
    75       TPBIntegerItem(NewItem).Name := 'Height';
    76       TPBIntegerItem(NewItem).Tag := 1;
    77       TPBIntegerItem(NewItem).Value := 12;
    78       Items.Add(NewItem);
    79       NewItem := TPBIntegerItem.Create;
    80       TPBIntegerItem(NewItem).Name := 'Width';
    81       TPBIntegerItem(NewItem).Tag := 2;
    82       TPBIntegerItem(NewItem).Value := 34;
    83       Items.Add(NewItem);
    84       NewItem := TPBIntegerItem.Create;
    85       TPBIntegerItem(NewItem).Name := 'Age';
    86       TPBIntegerItem(NewItem).Tag := 3;
    87       TPBIntegerItem(NewItem).Value := 45;
    88       Items.Add(NewItem);
     81      with TPBIntegerItem(NewItem) do begin
     82        Name := 'Height';
     83        Tag := 1;
     84        Value := 12;
     85      end;
     86      Items.Add(NewItem);
     87      NewItem := TPBStringItem.Create;
     88      with TPBStringItem(NewItem) do begin
     89        Name := 'Name';
     90        Tag := 2;
     91        Value := 'John Doe';
     92      end;
     93      Items.Add(NewItem);
     94      NewItem := TPBIntegerItem.Create;
     95      with TPBIntegerItem(NewItem) do begin
     96        Name := 'Age';
     97        Tag := 3;
     98        Value := 45;
     99      end;
     100      Items.Add(NewItem);
     101      NewItem := TPBMessageItem.Create;
     102      Items.Add(NewItem);
     103      with TPBMessageItem(Items[Items.Count - 1]) do begin
     104        Name := 'Address';
     105        Tag := 5;
     106        NewItem := TPBIntegerItem.Create;
     107        with TPBIntegerItem(NewItem) do begin
     108          Name := 'Street';
     109          Tag := 1;
     110          Value := 67;
     111        end;
     112        Items.Add(NewItem);
     113      end;
    89114    end;
    90115    DisplayTree(PB, TreeView1);
    … …  
    101126      Name := 'SampleMessage';
    102127      NewItem := TPBIntegerItem.Create;
    103       TPBIntegerItem(NewItem).Name := 'Height';
    104       TPBIntegerItem(NewItem).Tag := 1;
    105       Items.Add(NewItem);
    106       NewItem := TPBIntegerItem.Create;
    107       TPBIntegerItem(NewItem).Name := 'Age';
    108       TPBIntegerItem(NewItem).Tag := 3;
    109       Items.Add(NewItem);
    110       NewItem := TPBIntegerItem.Create;
    111       TPBIntegerItem(NewItem).Name := 'Weight';
    112       TPBIntegerItem(NewItem).Tag := 4;
    113       Items.Add(NewItem);
     128      with TPBIntegerItem(NewItem) do begin
     129        Name := 'Height';
     130        Tag := 1;
     131      end;
     132      Items.Add(NewItem);
     133      NewItem := TPBStringItem.Create;
     134      with TPBStringItem(NewItem) do begin
     135        Name := 'Name';
     136        Tag := 2;
     137        Value := '';
     138      end;
     139      Items.Add(NewItem);
     140      NewItem := TPBIntegerItem.Create;
     141      with TPBIntegerItem(NewItem) do begin
     142        Name := 'Weight';
     143        Tag := 4;
     144      end;
     145      Items.Add(NewItem);
     146      NewItem := TPBMessageItem.Create;
     147      Items.Add(NewItem);
     148      with TPBMessageItem(Items[Items.Count - 1]) do begin
     149        Name := 'Address';
     150        Tag := 5;
     151        NewItem := TPBIntegerItem.Create;
     152        with TPBIntegerItem(NewItem) do begin
     153          Name := 'Street';
     154          Tag := 1;
     155        end;
     156        Items.Add(NewItem);
     157      end;
    114158    end;
    115159    LoadFromStream(Stream);
Note: See TracChangeset for help on using the changeset viewer.