\/\/Clave tipo string\ntype\n TKey = string;\n\/\/Valor tipo string;\ntype\n TData = string;\n\ntype\n TMiMapa = specialize TFPGMap<TKey, TData>; <\/pre><\/div>\n\n\n\nC\u00f3mo se puede ver en este c\u00f3digo, debemos usar la unidad fgl<\/em>, y la declaraci\u00f3n del tipo usamos string<\/em> para la clave y lo mismo para el valor.<\/p>\n\n\n\nObserva el c\u00f3digo siguiente:<\/p>\n\n\n\n
program maps;\n\nuses\n SysUtils,\n fgl;\n\ntype\n TMiMapa = specialize TFPGMap<string, string>;\nvar\n MiMapa: TMiMapa; \nbegin\n MiMapa := TMiMapa.Create; \/\/Crear el objeto\n MiMapa.AddOrSetData('Nombre', 'Jorge'); \/\/A\u00f1adir clave valor\n MiMapa.AddOrSetData('Telefono', '123456789');\n MiMapa.AddOrSetData('Email', 'email@email.com');\n MiMapa.AddOrSetData('Borrarme', 'Borrado');\n Writeln('N\u00famero de elementos: ', MiMapa.Count); \/\/Mostrar cuantos elementos\n \/\/No te olvides de liberar el mapa\n FreeAndNil(MiMapa);\nend.<\/pre><\/div>\n\n\n\nEn la l\u00ednea 12 creamos el mapa. Tras ello, a\u00f1adimos diferentes pares clave\/valor. En la l\u00ednea 17 mostramos el n\u00famero de elementos que hay, por supuesto, antes de terminar liberamos la memoria.<\/p>\n\n\n\n
B\u00fasqueda de un elemento<\/h3>\n\n\n\n
Ahora vamos modificar el c\u00f3digo anterior para localizar una clave y su valor<\/p>\n\n\n\n
\/\/No borres el c\u00f3digo que hay aqu\u00ed\nvar\n MiMapa: TMiMapa;\n Valor: string; \nbegin\n \/\/No borres el c\u00f3digo que hay aqu\u00ed\n MiMapa.AddOrSetData('Borrarme', 'Borrado'); \n \/\/inserta esto\n Writeln('N\u00famero de elementos: ', MiMapa.Count);\n if MiMapa.TryGetData('Telefono', Valor) then\n begin\n Writeln('Encontr\u00f3 tel\u00e9fono', Valor);\n end;\n Writeln('N\u00famero de elementos: ', MiMapa.Count);\n\n \/\/No te olvides de liberar el mapa\n FreeAndNil(MiMapa);\nend.<\/pre><\/div>\n\n\n\nCon el m\u00e9todo TryGetData<\/em> podemos obtener el valor de una clave. En este caso buscamos la clave Telefono<\/em>. La funci\u00f3n devuelve true<\/em> si encontr\u00f3 la clave indicada. Por el par\u00e1metro Valor<\/em>, nos devuelve el valor que corresponde con la clave buscada.<\/p>\n\n\n\nTambi\u00e9n existe la posibilidad de buscar una clave y obtener el \u00edndice esta. El c\u00f3digo siguiente lo har\u00eda.<\/p>\n\n\n\n
\/\/La lista debe estar ordenada si queremos obtener el indice\n MiMapa.Sorted := True;\n Writeln('Buscar el indice de nombre');\n if MiMapa.Find('Nombre', Indice) = True then\n begin\n WriteLn('Encontrado en ', indice);\n WriteLn(MiMapa.Keys[Indice]); \/\/Devuelve la clave\n Writeln(MiMapa.Data[Indice]); \/\/Devuelve el valor\n end\n else\n begin\n Writeln('No existe');\n end; <\/pre><\/div>\n\n\n\nF\u00edjate que para usar la b\u00fasqueda y obtener el \u00edndice, la lista debe estar ordenada. La m\u00e9todo Find<\/em>, nos devuelve true<\/em> si ha tenido \u00e9xito en la b\u00fasqueda. Y usando los m\u00e9todos Keys<\/em> y Data<\/em>, indic\u00e1ndoles el \u00edndice, podemos obtener la clave y el valor de dicha clave respectivamente.<\/p>\n\n\n\nProbando algunas maldades<\/h3>\n\n\n\n
Observa el siguiente c\u00f3digo<\/p>\n\n\n\n
begin\n MiMapa := TMiMapa.Create;\n \/\/ MiMapa.OnKeyCompare := @Comparar;\n MiMapa.AddOrSetData('Nombre', 'Jorge');\n MiMapa.AddOrSetData('Telefono', '123456789');\n MiMapa.AddOrSetData('Email', 'email@email.com');\n MiMapa.AddOrSetData('Borrarme', 'Borrado');\n Writeln('N\u00famero de elementos: ', MiMapa.Count);\n if MiMapa.TryGetData('Telefono', Valor) then\n begin\n Writeln('Encontr\u00f3 tel\u00e9fono', Valor);\n end;\n \/\/La lista debe estar ordenada si queremos obtener el indice\n MiMapa.Sorted := True;\n Writeln('Buscar el indice de nombre');\n if MiMapa.Find('Nombre', Indice) = True then\n begin\n WriteLn('Encontrado en ', indice);\n WriteLn(MiMapa.Keys[Indice]); \/\/Devuelve la clave\n Writeln(MiMapa.Data[Indice]); \/\/Devuelve el valor\n end\n else\n begin\n Writeln('No existe');\n end;\n Writeln('A\u00f1adimos un repetido');\n MiMapa.AddOrSetData('Email', 'email@email.com');\n \/\/Como es repetido no lo a\u00f1ade\n Writeln('N\u00famero de elementos: ', MiMapa.Count);\n \/\/Substituye el valor de la clave\n MiMapa.AddOrSetData('Email', 'email1@email.com');\n WriteLn(MiMapa.KeyData['Email']);\n \/\/Borrar un elemento.\n MiMapa.Remove('Borrarme');\n \/\/hay uno menos\n Writeln('N\u00famero de elementos: ', MiMapa.Count);\n MiMapa.Remove('Borrarme');\n \/\/Sino existe no pasa nada.\n Writeln('N\u00famero de elementos: ', MiMapa.Count);\n\n \/\/No te olvides de liberar el mapa\n FreeAndNil(MiMapa); <\/pre><\/div>\n\n\n\nEn este c\u00f3digo, realizamos algunas \u00abmaldades\u00bb, como a\u00f1adir una clave y valor que ya existe (l\u00ednea 27). Al hacer esto no ocurre ning\u00fan error ni aviso, etc. Simplemente no se a\u00f1ade. Esto se comprueba que el n\u00famero de elementos no ha variado<\/p>\n\n\n\n
En el caso de que la clave exista, y el valor se diferente (l\u00ednea 31) se modifica el contenido del valor. Tal como se muestra en la l\u00ednea siguiente.<\/p>\n\n\n\n
Para borrar un elemento, simplemente llamando al m\u00e9todo Remove<\/em>, indicando su clave, este es eliminado (l\u00ednea 34). Si tratamos de borrar una clave que no existe, simplemente no ocurre nada, tal como muestra la l\u00ednea 37.<\/p>\n\n\n\nGestionar el orden.<\/h2>\n\n\n\n
En este ejemplo, simplemente, hemos a\u00f1adido y borrado elementos. Pero tambi\u00e9n tenemos la posibilidad de gestionar el orden de los elementos que se a\u00f1aden. Esto es interesante, sobre todo, cuando la clave, o el valor es un tipo de dato como un objeto. <\/p>\n\n\n\n
La clase TMap<\/em>, dispone de dos eventos, los cuales podemos usar en nuestro programa. Estos OnDataCompare<\/em> y OnKeyCompare<\/em>. Estos eventos se dispara cada vez que hay que comparar se compara un valor, o una clave. Para hacer uso de alguna de estos eventos, debemos asignarlo en el momento de crear el objeto.<\/p>\n\n\n\n MiMapa.OnKeyCompare := @Compararkeys;\n MiMapa.OnDataCompare := @CompararValores; <\/pre><\/div>\n\n\n\nY declarar las correspondientes funciones.<\/p>\n\n\n\n
function Compararkeys(const Key1, Key2: TKey): integer;\n begin\n Result := CompareStr(Key1,Key2);\n end;\n\n function CompararValores(const Data1, Data2: TData): integer;\n begin\n Result := CompareStr(Data1,Data2);\n end; <\/pre><\/div>\n\n\n\nEl valor que deben devolver es un entero cuyo valor debe ser uno de los siguientes:<\/p>\n\n\n\n