RPC HELP TMult L Example

Last Example Back

The following program code displays the subscript and value of the last item in a Mult variable in the caption of a label when the user clicks the GetLast button:

procedure TForm1.GetLastClick(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 last element: ' + Mult.Last + ', and its value: ' + Mult[Mult.Last]; end;