Description |
A SortedList contains key-value pairs sorted by key sequence. The value of the key-value pair at (0-based) Index in this sequence is set to the specified Value.
|
|
Microsoft MSDN Links |
System.Collections
System.Collections.SortedList
|
|
|
A simple example |
program Project1;
{$APPTYPE CONSOLE}
uses
System.Collections;
var
MyList : System.Collections.SortedList;
DictEntry : DictionaryEntry;
Enumerator : IEnumerator;
begin
// Create our sorted list
MyList := SortedList.Create;
// Add entries to the Source list
MyList['Name'] := 'Neil Moffatt';
MyList['Age'] := TObject(47);
MyList['Birthday'] := DateTime.Create(1957, 2, 18);
// Display the Sorted list
// Remember - it is in key sequence now!
Enumerator := MyList.GetEnumerator;
while Enumerator.MoveNext do
begin
DictEntry := DictionaryEntry(Enumerator.Current);
Console.WriteLine('{0} = {1}',
DictEntry.Key.ToString,
DictEntry.Value.ToString);
end;
// Set the value at Index 0
Console.WriteLine;
Console.WriteLine('Changing the 0th index value : ');
Console.WriteLine;
MyList.SetByIndex(0, 'Very old!');
// Display the Sorted list
Enumerator := MyList.GetEnumerator;
while Enumerator.MoveNext do
begin
DictEntry := DictionaryEntry(Enumerator.Current);
Console.WriteLine('{0} = {1}',
DictEntry.Key.ToString,
DictEntry.Value.ToString);
end;
Console.Readline;
end.
| Show full unit code | Age = 47
Birthday = 18/02/1957 00:00:00
Name = Neil Moffatt
Changing the 0th index value :
Age = Very old!
Birthday = 18/02/1957 00:00:00
Name = Neil Moffatt
|
|
|
|