First Property Example

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
  Mult := TMult.Create(Form1);      {Create Mult. Make Form1 its owner}
  Mult['Fruit'] := 'Apple';
  Mult['Vegetable'] := 'Potato';    {Store element pairs one by one}
  Label1.Caption := 'The subscript of the first element: ' + Mult.First + ', and its value: ' + Mult[Mult.First];
end;