View source for RPC HELP TMult First Example

[[RPC_Broker_Help| RPC Broker Help Home]]
<h2>First Example</h2>
[[RPC_HELP_Mult_First|Back]]

The following program code displays the subscript and value of the first item in a Mult variable in the caption of a label when the user clicks the GetFirst button:
	
    <code>
    '''procedure''' TForm1.GetFirstClick(Sender: TObject);
    '''var'''
      Mult: TMult;
      Subscript: string;
    '''begin'''
      {Create Mult. Make Form1 its owner}
      Mult := TMult.Create(Form1);
      Mult['Fruit'] := 'Apple';
      {Store element pairs one by one}
      Mult['Vegetable'] := 'Potato';
      Label1.Caption := 'The subscript of the first element: ' + Mult.First + ', and its value: ' + Mult[Mult.First];
    '''end;'''
    </code>