RPC Broker TMult Example
From VistApedia
TMult 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 {Create Mult. Make Form1 its owner} Mult := TMult.Create(Form1); {Store element pairs one by one} Mult['First'] := 'One'; Mult['Second'] := 'Two'; {Use double quotes for M strings} Mult['"First"'] := '"One"'; {Label1.Caption will get "One"} Label1.Caption := Mult['"First"']; {Error! 'Third' subscripted element was never stored} Label1.Caption := Mult['Third']; end;