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
[-]
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;
procedure TFMapa.GMMark2Click(Sender: TObject; LatLng: TLatLng; Index: Integer;
LinkedComponent: TLinkedComponent);
begin
if GMMark2.Count > 0 then begin
AQmap.Active := false;
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;
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.