Gmlib Gmmarker

[Neftali [Germán.Estévez]]

Empezado por DrakStorm

cuando aplico el procedimiento CLEAR en el GMMarker, lo que pasa es que el procedimiento limpia todos los marcadores que genere anteriormente, pero no borra la cola

GMMarker es una lista y cuando haces el Clear si se borran todos los elementos de la lista y se libera la memoria de los elementos.
Si haces un Count verás que la lista tiene 0 elementos.

Empezado por DrakStorm

es decir cuando genero el primer marcador el ID de la cola es el 0 (cero) y el siguiente es el 1, hasta el momento todo perfecto, cuando aplico el CLEAR, pero el siguiente marcador que genero tiene como ID 2 y no 0 (cero)

Otra cosa diferente y que estás confundiendo es el ID que se asigna a cada elemento, que no tiene porqué resetearse cuando haces el Clear. Ese ID es el que se va incrementando y aunque hagas el Clear no se pone a cero (y no tiene porqué ponerse). Ese ID identifica a cada elemento, y no tiene resetearse.

Según lo que estés haciendo y para qué estés utilizando ese valor, puede usar de forma alternativa GMMarker.Count.
Otra opción es Marker.ZIndex, que parece que si que se comporta como deseas, de todas formas habrá que ver qué pasa con esta propiedad cuando borres elementos existentes, crees elementos nuevos,...

Una última opción para que el ID se comporte como deseas (aunque no la veo la más adecuada) es liberar la lista (GMMarker) y volver a crearla. De esa forma, el ID si se reinicia a cero.

Código Delphi [-]
  GMMarker1.Free;
  GMMarker1 := TGMMarker.Create(Self);
  //...   asignar otras propiedades

[DrakStorm]

Buen día Neftali, muchas gracias por tu respuesta y tu tiempo.
Paso a comentar el problema pero ahora te muestro el código para que veas lo que estoy haciendo y asi entiendas mejor el por que de mi pregunta.

Código Delphi [-]

// GENERO LOS PUNTOS EN EL MAPA
procedure TFMapa.Button1Click(Sender: TObject);

var Marcador : TMarker;

begin

  PrincipalF.AQofi.First;

while not PrincipalF.AQofi.Eof do

    Begin

    if Principalf.AQofi.FieldByName('lat').value <> null  then


    begin
    Lat4 := Principalf.AQofi.FieldByName('lat').Value;
    Lng4 := Principalf.AQofi.FieldByName('lng').Value;
    marcador := GMMark2.Add(Lat4, Lng4, Principalf.AQofi.FieldByName('id').AsString);
    marcador.Icon := 'C:\ComSoft\puntoazul.png';
    end;
    PrincipalF.AQofi.Next;
    End;

     GMMark2.ZoomToPoints;

end;


// Cuando marco los puntos al hacerles click muestro en unos edit la informacion guardada en la DB referente al punto seleccionado
procedure TFMapa.GMMark2Click(Sender: TObject; LatLng: TLatLng; Index: Integer;
  LinkedComponent: TLinkedComponent);
begin


 if GMMark2.Count > 0 then begin

 // ACA SE GENERA EL ERROR
  AQmap.Active := false;
// CUANDO HAGO CLICK EN EL MARCADOR EL linkedcomponent.id ME DA EL VALOR CORRECTO PERO GMMark2.items[linkedcomponent.id].title QUEDA VACIO COMO SI EL MARCADOR NO TUVIERA UN TITLE
  AQmap.SQL.Text := 'select id, tipodelito, otros from oficios WHERE id="'+GMMark2.items[linkedcomponent.id].title+'"';
  AQmap.Active := true;

  Edit1.Text := AQmap.FieldByName('id').AsString;
  Edit2.Text := AQmap.FieldByName('tipodelito').AsString;
  Edit3.Text := AQmap.FieldByName('otros').AsString;


 end;
end;

// Limpio los puntos del mapa

procedure TFMapa.Button2Click(Sender: TObject);

begin

if GMMark2.Count > 0 then
    Begin
    GMMark2.clear;

    End;
end;

Cuando hago el clear y vuelvo a generar los puntos funciona perfecto ahora cuando le quiero hacer click en uno de los puntos me da el siguiente error (Argument out of range) y la verdad es que no entiendo por que.

Desde ya muchas gracias por la ayuda y espero que se entienda el problema o que puedas ver que es lo que estoy haciendo mal. la verdad es que soy nuevo con GMlib pero lo necesito urgente para el trabajo.

[DrakStorm]

Empezado por DrakStorm

[delphi]


// Cuando marco los puntos al hacerles click muestro en unos edit la informacion guardada en la DB referente al punto seleccionado
procedure TFMapa.GMMark2Click(Sender: TObject; LatLng: TLatLng; Index: Integer;
LinkedComponent: TLinkedComponent);
begin


if GMMark2.Count > 0 then begin

// ACA SE GENERA EL ERROR
AQmap.Active := false;
// LA PRIMERA VEZ QUE MUESTRO LOS PUNTOS FUNCIONA PERFECTO, CUANDO HAGO EL CLEAR Y VUELVO A CARGAR LOS PUNTOS ME PASA LO SIGUIENTE
// CUANDO HAGO CLICK EN EL MARCADOR EL linkedcomponent.id ME DA EL VALOR CORRECTO PERO GMMark2.items[linkedcomponent.id].title QUEDA VACIO COMO SI EL MARCADOR NO TUVIERA UN TITLE
AQmap.SQL.Text := 'select id, tipodelito, otros from oficios WHERE id="'+GMMark2.items[linkedcomponent.id].title+'"';
AQmap.Active := true;

Edit1.Text := AQmap.FieldByName('id').AsString;
Edit2.Text := AQmap.FieldByName('tipodelito').AsString;
Edit3.Text := AQmap.FieldByName('otros').AsString;


end;
end;

Disculpas por pegar de nuevo pero no podía editar el mensaje.

[Neftali [Germán.Estévez]]

El problema es que estás utilizando el ID como índice para realizar la búsqueda en la lista, y tal como te he comnentado esa condición no siempre es cierta (por ejemplo, cuando has hecho un Clear).

Implementa una busqueda por título (recorriendo la lista de Marcas); A no ser que tengas una gran cantidad de marcas, recorrer la lista secuencialmente debe ser inmediato. Si tuvieras miuchísimas, siempre puedes hacer una estructura paraleta que te mantenga ID/Indice.

[DrakStorm]

Empezado por Neftali [Germán.Estévez]

El problema es que estás utilizando el ID como índice para realizar la búsqueda en la lista, y tal como te he comnentado esa condición no siempre es cierta (por ejemplo, cuando has hecho un Clear).

Implementa una busqueda por título (recorriendo la lista de Marcas); A no ser que tengas una gran cantidad de marcas, recorrer la lista secuencialmente debe ser inmediato. Si tuvieras miuchísimas, siempre puedes hacer una estructura paraleta que te mantenga ID/Indice.

Creo que lo que me dices es lo que estoy haciendo yo al marcador le pongo de titulo el id que tengo en la DB donde tengo los datos de ese marcador y cuando hago click en el marcador quiero recuperar el titulo de ese marcador para poder traer los campos de la DB asociados a ese id.

La única manera que tengo de saber a que marcador se refiere es con linkedcomponent.id eso me da el valor del id del marcador y en base a ese id pregunto cual es el titulo con esto GMMark2.items[linkedcomponent.id].title ahora el linkedcomponent.id me da el valor correcto del marcador pero GMMark2.items[linkedcomponent.id].title no me da el title de ese marcador.

Este error solo se genera después de aplicar el clear, en la primera carga si me devuelve el title y puedo realizar la busqueda en la DB, nose por que en la segunda carga después de aplicar el clear GMMark2.items[linkedcomponent.id].title me devuelve un resultado vació y ahí se genera el argument out of rage.

linkedcomponent.id si trae el id correcto del marcador en todo momento, pero cuando consulto por el title de ese marcador me lo trae vacio

perdon si soy repetitivo es que nose como explicar mejor lo que me esta sucediendo
Muchas gracias

[DrakStorm]

En la imagen trato de ser mas explicativo jajajaj
esto pasa solamente despues de aplicar el clear en la primera carga funciona perfecto

https://ibb.co/bHSMfn


dejo el link de la imagen por que no tengo permitido subir imágenes al foro todavía

[Neftali [Germán.Estévez]]

En la primera carga el ID de cada marca coincide con su índice en la lista:
Lista:


Index=0 Marca.ID=0
Index=1 Marca.ID=1
Index=2 Marca.ID=2


(la primera vez, el ID de cada marca -segunda columna- coincide con el INDEX de la lista, por eso no tienes problemas en acceder)

Después de hacer el clear, Los índices de la vuelven a comenzar por 0, mientras que el ID de las marcas sigue la progresión anterior. La lista después de hacer el Clear y crear nuevas marcas queda así:


Index=0 Marca.ID=3
Index=1 Marca.ID=4
Index=2 Marca.ID=5


Por eso, cuando intentas acceder a los elementos de la lista así (utilizando el ID):

Código Delphi [-]
  ...
  GMMark2.items[linkedcomponent.id].title
  ...

Utilizando, por ejemplo la marca con ID=4, te da un "out of rande", porque el íncide de la lista=4 no existe.