Gmlib Gmmarker

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

[DrakStorm]

Muchas gracias por tu ayuda lo solucione de la siguiente manera

Código Delphi [-]

procedure TFMapa.GMMark2Click(Sender: TObject; LatLng: TLatLng; Index: Integer;
  LinkedComponent: TLinkedComponent);
begin


 if GMMark2.Count > 0 then
    begin
     if CMap > 1 then
       begin
        AQmap.Active := false;
        AQmap.SQL.Text := 'select id, tipodelito, otros from oficios WHERE id="'+GMMark2.items[linkedcomponent.id - F].title+'"';
        AQmap.Active := true;
       end
        else
       begin
        AQmap.Active := false;
        AQmap.SQL.Text := 'select id, tipodelito, otros from oficios WHERE id="'+GMMark2.items[linkedcomponent.id].title+'"';
        AQmap.Active := true;
       end;

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

    end;



end;

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;
          NombreMark := Principalf.AQofi.FieldByName('id').AsString;
          marcador := GMMark2.Add(Lat4, Lng4, NombreMark);
          marcador.Icon := 'C:\ComSoft\puntoazul.png';
          I := I + 1;
        end;

     PrincipalF.AQofi.Next;
    End;
     CMap := CMap + 1;
     GMMark2.ZoomToPoints;

end;

procedure TFMapa.Button2Click(Sender: TObject);

begin

if GMMark2.Count > 0 then
    Begin
    F := I;
    GMMark2.clear;
    close;
    End;
end;

Lo que hago es contar los marcadores que se generan y luego se los resto al id del marcador solo después de la primera carga.

Se que para programadores mas expertos esto es un aborto de la naturaleza pero es lo único que se me ocurrió a mi, si tienes una solución mucho mas optima te lo agradecería mucho.

Desde ya muchas gracias por toda tu ayuda estaba muy trabado con ese tema.

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

Empezado por DrakStorm

...si tienes una solución mucho mas optima te lo agradecería mucho.

En el mensaje anterior te comenté algunas opciones.

La primera a probar sería utilizando la popiedad ZIndex de cada marca en lugar del ID. Parece que ese índice sí se resetea al hacer el Clear.

Código Delphi [-]

  GMMark2.items[linkedcomponent.ZIndex].title

La segunda (y ahora me acabo de dar cuenta) es utilizar d9irectamente la propiedad de la marca, en lugar de buscar en la lista el título, ya que también la tiene. Es decir, utilizar esto para acceder al título:

Código Delphi [-]
  AQmap.SQL.Text := 'select id, tipodelito, otros from oficios WHERE id="'+TMarker(linkedcomponent).title+'"';

Y en todo caso, comprobar antes que linkedcomponent es un TMarker.

La tercera, que también te he comentado, es usar una función para buscar el título que esperas sin usar el ID.

Código Delphi [-]
function GetTitle(GMMarker:TGMMarker; LinkedComponent: TLinkedComponent):string;
var
  i:integer;
begin
  Result := '';
  for i := 0 to (GMMarker.Count - 1) do begin
    if (GMMarker.Items[i] = LinkedComponent) then begin
      Result := GMMarker.Items[i].Title;
      Break;
    end;
  end;
end;

En este caso usarías algo así:

Código Delphi [-]
AQmap.SQL.Text := 'select id, tipodelito, otros from oficios WHERE id="'+GetTitle(GMMark2, linkedcomponent)+'"';

Más o menos son las que se me ocurren.