Mapview mark Kaldırma

[arsl01]

Merhaba Tmapview ile daire çizdiriyorum her yeni daire eklemeden önce önceki daireyi şu şekilde temizliyorum

FmapDaire.DisposeOf;

Fakat Mark ekleyip her seferinde Mark'ı temizlemek istediğimde tepki vermiyor Remove komutunu denediğimde ise uygulama kapanıyor.
Yeni Mark oluşturmadan önce nasıl bir önceki mark'ı temizlerim?

[TescilsizUzman]

Merhaba,
Marker tipinde global bir TList oluşturun ve oluşturduğunuz her marker'ı da List'e ekleyin. Böylece sonradan istediğiniz bir marker değerine ulaşabilirsiniz.
Bir önceki marker'ı silmek için remove işleminde List'in son elemanından bir önceki (list.count-1) değerini kullanın (Yeni marker'ı eklemeden silmek isterseniz list.count değerini kullanın). Sonrasında List'ten işlem yaptığınız marker'ı da silin.

[arsl01]

Teşekkür ederim hocam sonucu paylaşacağım

[TescilsizUzman]

Merhaba,
Çalışmanızı biraz daha hızlı sonuçlandıracağına inandığım ve
birçok harita işlemlerinde kullandığım kod yapısını paylaşayım. 

 public
   FMarkers: TList<TMapMarker>;

 ...

procedure TformAna.FormCreate(Sender: TObject);
begin
 FMarkers := TList<TMapMarker>.Create;
end;

procedure TformAna.FormDestroy(Sender: TObject);
begin
 if Assigned(FMarkers) then
   FreeAndNil(FMarkers);
end;

procedure TformAna.SetArsMapViewYenile();
begin
 If FMarkers.Count > 0 Then frmHarita.MapView1.Location := FMarkers.Last.Descriptor.Position; // else sizin belirleyeceğiniz varsayılan bir konum. 
end;

procedure TformAna.SetArsMarkerSilTumu;
Var
 Marker: TMapMarker;
begin
 Try
   if (FMarkers <> Nil) And (FMarkers.Count > 0) then
   Begin
     for Marker in FMarkers do
       Marker.Remove;
     FMarkers.Clear;
     SetArsMapViewYenile();
   End;
 Except

 End;
end;

Marker eklemek için de aşağıdaki gibi bir metod kullanıyorum.

procedure TfrmHarita.SetArsMarkerEkle(const Position: TMapCoordinate; const Baslik: String; TumunuSil: Boolean);
var
 MyMarker: TMapMarkerDescriptor;
 Yer: TMapMarker;
begin
 if TumunuSil then
   formAna.SetArsMarkerSilTumu();
 MyMarker := TMapMarkerDescriptor.Create(Position, 'Yeni Konum');
 MyMarker.Draggable := False;
 MyMarker.Visible := True;
 MyMarker.Title := Baslik;
 MyMarker.Snippet := '(' + Position.Latitude.ToString + ' - ' + Position.Longitude.ToString + ')';
 Yer := MapView1.AddMarker(MyMarker);
 formAna.FMarkers.Add(Yer);
 MapView1.Location := Yer.Descriptor.Position;
 MapView1.Zoom := 11;
end;

Kullanım şekli

SetArsMarkerEkle(Position, 'Adresim', True);

[arsl01]

Hocam gerçekten harikasınız çok teşekkür ederim