RPC HELP TMult First Example
From VistApedia
Revision as of 22:33, 3 July 2015 by Kdtop (talk | contribs) (Created page with " RPC Broker Help Home <h2>First Example</h2> Back The following program code displays the subscript and value of the first item i...")
First 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
{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;