Gmlib Gmmarker

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

[DrakStorm]

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

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.

Paso a comentar los resultados de las soluciones que me aportaste.

Primera solución: tira error (TLinkedComponent does not contain a member name ZIndex).

Segunda solución: esta funciona perfecto y creo que para mi caso es la mas practica.

Tercera solución: funciona perfecto pero creo que no es la mas acorde para mi caso en particular.

Bueno espero que este post ayude a alguien mas también, y desde ya mas que agradecido por todas tus respuestas y el tiempo que le dedicaste a mi tema, MUCHAS PERO MUCHAS Gracias Neftali [Germán.Estévez] sos un crack.

[DrakStorm]

Empezado por DrakStorm

Primera solución: tira error (TLinkedComponent does not contain a member name ZIndex).

Corrijo ZIndex no funciona con GMMarker pero si funciona perfecto con TMarker.

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

Empezado por DrakStorm

Corrijo ZIndex no funciona con GMMarker pero si funciona perfecto con TMarker.

No lo había leído antes de escribir el último mensaje.

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

Empezado por DrakStorm

Primera solución: tira error (TLinkedComponent does not contain a member name ZIndex).

Tienes que hacer un CAST como se hace en la segunda...
Aunque si la segunda te funciona, coincido en que parece la más adecuada y directa.

Código Delphi [-]
  GMMark2.items[TMarker(linkedcomponent).ZIndex].title