RPC HELP TMult Subscript Example

RPC Broker Help Home

Subscript Example

Subscript

The following program code demonstrates how to get the subscript of an item in a TMult variable:

   procedure TForm1.Button1Click(Sender: TObject);
   var
     Mult: TMult;
   begin
     {Create Mult. Make Form1 its owner}
     Mult := TMult.Create(Form1);
     Label1.Caption := 'The subscript of the item at position 1 is ' +
     {will be empty since the list is empty}
     Mult.Subscript(1);
     Mult['Second'] := 'Two';
     Label1.Caption := 'The subscript of the item at position 1 is ' +
     {will be empty. Only one item in list so far at 0th position}
     Mult.Subscript(1);
     Mult['Third'] := 'Three';
     Label1.Caption := 'The subscript of the item at position 1 is ' +
     {will be Third}
     Mult.Subscript(1);
   end;