Ver Mensaje Individual
  #3  
Antiguo 19-02-2018
DrakStorm DrakStorm is offline
Miembro
NULL
 
Registrado: may 2013
Posts: 12
Reputación: 0
DrakStorm Va por buen camino
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.
Responder Con Cita