Gmlib Gmmarker

[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.

[DrakStorm]

realice una prueba de la siguiente manera

showmessage (GMMark2.items[linkedcomponent.id].title)
la primera carga suponiendo que tengo solo una marca linkedcomponent.id tiene valor 0 y me trae el titilo del marcador correctamente.
despues de aplicar el clear hago esto showmessage (GMMark2.items[linkedcomponent.id].title) y el linkedcomponent.id tiene valor 1 y el titulo del marcador da error.

Despues de eso puse este mensaje y me mostró el titulo correctamente
showmessage (GMMark2.items[0].title)

En resumen cuando hago el clear me borra los marcadores y les genera un nuevo id a cada uno es decir si tengo 4 marcadores los genera desde el 0 al 3 pero el linkedcomponent.id no se resetea y cuando hago el clear en lugar de que el id del marcador valla del 0 al 3 va del 4 al 7.

hay alguna manera de resetear eso? por la verdad ya estoy perdido.

[DrakStorm]

Empezado por 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.

exactamente acabo de escribir lo que dices pero mas a lo bestia, muchas gracias por tu atención y tu predisposición.

Ahora hay alguna manera para que el id de la marca coincida con el index?