TMult Component Example

The following program code demonstrates how to store and retrieve elements from a TMult variable:

procedure TForm1.Button1Click(Sender: TObject);
var
  Mult: TMult;
  Subscript: string;
begin
  Mult := TMult.Create(Form1);        {Create Mult. Make Form1 its owner}
  Mult['First'] := 'One';             {Store element pairs one by one}
  Mult['Second'] := 'Two';
  Mult['"First"'] := '"One"';         {Use double quotes for M strings}
  Label1.Caption := Mult['"First"'];  {Label1.Caption will get "One"}
  Label1.Caption := Mult['Third'];    {Error! 'Third' subscripted element was never stored}
end;