RPC HELP TMult Sorted Example - Revision history

Kdtop at 22:25, 3 July 2015

2015-07-03T22:25:52Z

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

	The following program code demonstrates the effect the Sorted property has on a TMult variable. Notice that by setting the Sorted property back to False, the list does not revert to its unsorted order:		The following program code demonstrates the effect the Sorted property has on a TMult variable. Notice that by setting the Sorted property back to False, the list does not revert to its unsorted order:
	# Start a new application.		# Start a new application.

Kdtop at 22:24, 3 July 2015

2015-07-03T22:24:36Z

← Older revision		Revision as of 22:24, 3 July 2015
Line 71:		Line 71:
	Memo1.Lines.Add(Format('%10s', [Subscript]) + ' - ' + Mult1[Subscript])		Memo1.Lines.Add(Format('%10s', [Subscript]) + ' - ' + Mult1[Subscript])
	//stop when reached the end		//stop when reached the end
	'''until''' Subscript = '';		'''until''' Subscript = '';

	'''end;'''		'''end;'''

Kdtop at 22:24, 3 July 2015

2015-07-03T22:24:12Z

← Older revision		Revision as of 22:24, 3 July 2015
Line 56:		Line 56:
	'''until''' Subscript = '';		'''until''' Subscript = '';

	//existing entries will remain in sorted order		//existing entries will remain in sorted order
	Mult1.Sorted := False;		Mult1.Sorted := False;
	Memo1.Lines.Add('');		Memo1.Lines.Add('');
	Memo1.Lines.Add('Unsorted order:');		Memo1.Lines.Add('Unsorted order:');

	//set a starting point		//set a starting point
	Subscript := '';		Subscript := '';
	'''repeat'''		'''repeat'''
	//get next Mult element		//get next Mult element
	Subscript := Mult1.Order(Subscript, 1);		Subscript := Mult1.Order(Subscript, 1);
	//if not the end of list		//if not the end of list
	'''if''' Subscript <> '' '''then'''		'''if''' Subscript <> '' '''then'''
	//display subscript – value		//display subscript – value
	Memo1.Lines.Add(Format('%10s', [Subscript]) + ' - ' + Mult1[Subscript])		Memo1.Lines.Add(Format('%10s', [Subscript]) + ' - ' + Mult1[Subscript])
	//stop when reached the end		//stop when reached the end
	'''until''' Subscript = '';		'''until''' Subscript = '';

Kdtop: Created page with " RPC Broker Help Home

Sorted Example

The following program code demonstrates the effect the Sorted property has on a TMult variable. Notice that b..."

2015-07-03T22:22:09Z

Created page with " RPC Broker Help Home <h2>Sorted Example</h2> The following program code demonstrates the effect the Sorted property has on a TMult variable. Notice that b..."

New page

[[RPC_Broker_Help| RPC Broker Help Home]]
<h2>Sorted Example</h2>
The following program code demonstrates the effect the Sorted property has on a TMult variable. Notice that by setting the Sorted property back to False, the list does not revert to its unsorted order:
# Start a new application.
# Drop one memo and one button on the form. Arrange controls as in the figure below.
# Copy the following code to the Button1.OnClick event:
<code>
'''procedure''' TForm1.Button1Click(Sender: TObject);
'''var'''
Mult1: TMult;
Subscript: string;
'''begin'''
//Create Mult1. Make Form1 its owner
Mult1 := TMult.Create(Form1);

//Fill Mult1 with some strings
Mult1['First'] := 'One';
Mult1['Second'] := 'Two';
Mult1['Third'] := 'Three';
Mult1['Fourth'] := 'Four';
Mult1['Fifth'] := 'Five';

//configure memo box for better display
Memo1.Font.Name := 'Courier';
Memo1.ScrollBars := ssVertical;
Memo1.Lines.Clear;
Memo1.Lines.Add('Natural order:');

//set a starting point
Subscript := '';
'''repeat'''
//get next Mult element
Subscript := Mult1.Order(Subscript, 1);
//if not the end of list
'''if''' Subscript <> '' '''then'''
//display subscript – value
Memo1.Lines.Add(Format('%10s', [Subscript]) + ' - ' + Mult1[Subscript])
//stop when reached the end
'''until''' Subscript = '';

//list will now be sorted alphabetically
Mult1.Sorted := True;
Memo1.Lines.Add('');
Memo1.Lines.Add('Sorted order:');

//set a starting point
Subscript := '';
'''repeat'''
//get next Mult element
Subscript := Mult1.Order(Subscript, 1);
//if not the end of list
'''if''' Subscript <> '' '''then'''
//display subscript – value
Memo1.Lines.Add(Format('%10s', [Subscript]) + ' - ' + Mult1[Subscript])
//stop when reached the end
'''until''' Subscript = '';

//existing entries will remain in sorted order
Mult1.Sorted := False;
Memo1.Lines.Add('');
Memo1.Lines.Add('Unsorted order:');

//set a starting point
Subscript := '';
'''repeat'''
//get next Mult element
Subscript := Mult1.Order(Subscript, 1);
//if not the end of list
'''if''' Subscript <> '' '''then'''
//display subscript – value
Memo1.Lines.Add(Format('%10s', [Subscript]) + ' - ' + Mult1[Subscript])
//stop when reached the end
'''until''' Subscript = '';

'''end;'''
</code>
4. Run project and click on the button.

Expected output:

You may have to scroll up and down to see all of the output.