Dicas - Collections para ordenar chaves e valores

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica como trabalhar com Collections para ordernar chaves e valores.

Collections para ordenar chaves e valores

 

SortedList  namespace

System.Collections

 

Declaration

SortedList = class(System.Object, IDictionary, ICollection,

  IEnumerable, ICloneable);

 

Representa uma coleção de pares de chave-e-valor que são ordenados pelas chaves e são acessível através de chave e através de índice.

 

program System_Collections_SortedList;

{$APPTYPE CONSOLE}

{$AUTOBOX ON}

 

uses

  System.Collections;

 

type

 SamplesSortedList = class

 public

  class procedure Main;

 private

  class procedure PrintKeysAndValues(myList: SortedList);

 end;

 

{ SamplesSortedList }

 

class procedure SamplesSortedList.Main;

var

  mySL: SortedList;

begin

  // Creates and initializes a new SortedList

  mySL := SortedList.Create;

  mySL.Add('First', 'Hello');

  mySL.Add('Second', 'World');

  mySL.Add('Third', '!');

 

  // Displays the properties

  //and values of the SortedList

  Console.WriteLine('mySL');

  Console.WriteLine('  Count:    {0}', mySL.Count);

  Console.WriteLine('  Capacity: {0}', mySL.Capacity);

  Console.WriteLine('  Keys and Values:');

 

  PrintKeysAndValues(mySL);

end;

 

class procedure SamplesSortedList.PrintKeysAndValues (

  myList: SortedList);

var

  idx: Integer;

begin

  Console.WriteLine(''#9'-KEY-'#9'-VALUE-');

  idx := 0;

  while (idx < myList.Count) do

  begin

    Console.WriteLine(''#9'{0}:'#9'{1}',

      myList.GetKey(idx),

      myList.GetByIndex(idx));

    idx := idx + 1;

  end;

  Console.WriteLine;

end;

 

//test program

begin

  SamplesSortedList.Main;

end.

 

Saída

mySL

  Count:    3

  Capacity: 16

  Keys and  Values:

  -KEY-                        -VALUE-

  First:                          Hello

  Second:                      World

  Third:                         !

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?