RPC HELP TMult First Example

From VistApedia
Revision as of 22:35, 3 July 2015 by Kdtop (talk | contribs)
Jump to: navigation, search

RPC Broker Help Home

First Example

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:

   
   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;