RPC HELP TMult First Example - Revision history

Kdtop at 22:42, 3 July 2015

2015-07-03T22:42:42Z

← Older revision		Revision as of 22:42, 3 July 2015
Line 1:		Line 1:
	[[RPC_Broker_Help\| RPC Broker Help Home]]		[[RPC_Broker_Help\| RPC Broker Help Home]]
	<h2>First Example</h2>		<h2>First Example</h2>
	[[~~RPC_HELP_TMult~~\|Back]]		[[RPC_HELP_Mult_First\|Back]]

	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:		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:

Kdtop at 22:35, 3 July 2015

2015-07-03T22:35:10Z

← Older revision		Revision as of 22:35, 3 July 2015
Line 1:		Line 1:
	[[RPC_Broker_Help\| RPC Broker Help Home]]		[[RPC_Broker_Help\| RPC Broker Help Home]]
	<h2>First Example</h2>		<h2>First Example</h2>
	[[~~RPC_HELP_Mult_Sorted~~\|Back]]		[[RPC_HELP_TMult\|Back]]

	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:		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:

Kdtop: Created page with " RPC Broker Help Home

First Example

Back The following program code displays the subscript and value of the first item i..."

2015-07-03T22:33:43Z

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..."

New page

[[RPC_Broker_Help| RPC Broker Help Home]]
<h2>First Example</h2>
[[RPC_HELP_Mult_Sorted|Back]]

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:

<code>
'''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;'''
</code>