Удаление маркеров TMapView N2

[Rusland]

Удаляю маркеры так:

public
      FMarkers: TList<TMapMarker>;
...

procedure TFormMain.ClearListPV;
var
  Marker: TMapMarker;
begin
  for Marker in FMarkers do
  begin
    FMarkers.Remove(Marker);
    Marker.Remove;
  end;
end;

FMarkers содержит список маркеров. Чтобы удалились все маркеры приходится вызывать процедуру несколько раз. Что я делаю не так? 

[Martifan]

 
Private
  FMarkers: TList<TMapMarker>;
 
...................
 
 
Procedure AddMarker;
var 
    mapCenter: TMapCoordinate;
    MyMarker: TMapMarkerDescriptor;
Begin
  mapCenter := TMapCoordinate.Create(StrToFloat(Lat), StrToFloat(Lon));
  MyMarker := TMapMarkerDescriptor.Create(mapCenter, 'Text');
  fmain.MapView1.Location := mapCenter;
  FMarkers.Add(fmain.MapView1.AddMarker(MyMarker));
End;
 
Procedure RemoveMarker;
var 
    Marker: TMapMarker;
Begin
  for Marker in FMarkers do
    Marker.Remove;
    FMarkers.Clear;
End;
 
procedure Tfmain.FormCreate(Sender: TObject);
begin
  FMarkers := TList<TMapMarker>.Create;
End;
 

Изменено 19 октября, 2015 пользователем Martifan

[Rusland]

Значит надо удалять маркеры и лишь затем очищать список. Хм... сейчас попробую 

 

Отлично! Работает ))

Изменено 20 октября, 2015 пользователем Rusland

[krapotkin]

А почему не TObjectList ?

он сам все удаляет за собой

[Rusland]

krapotkin, пожалуйста пример в студию

[krapotkin]

List:TObjectList<TMapMarker>;
...
List:=TObjectList<TMapMarker>.Create(true);
...
FreeAndNil(List);

[Rusland]

krapotkin, не понимаю в чем принципиальное отличие TList<TMapMarker> и TObjectList<TMapMarker>?

 

FreeAndNil(List); сразу удаляет все маркеры на карте?

[Равиль Зарипов (ZuBy)]

krapotkin, не понимаю в чем принципиальное отличие TList<TMapMarker> и TObjectList<TMapMarker>?

 

FreeAndNil(List); сразу удаляет все маркеры на карте?

 

TObjectList при Free сам делает чистку своих объектов

[Rusland]

Ясно. Дежавю прям... уже где-то обсуждалось это...

 

А бегать по маркерам тут также?

 

 

 

var List:TObjectList<TMapMarker>;
      Marker: TMapMarker;
Begin
  List:=TObjectList<TMapMarker>.Create(true);
...
  for Marker in List do
...

Изменено 20 октября, 2015 пользователем Rusland

[Равиль Зарипов (ZuBy)]

 

Ясно. Дежавю прям... уже где-то обсуждалось это...

 

А бегать по маркерам тут также?

 

 

 

var List:TObjectList<TMapMarker>;

      Marker: TMapMarker;

Begin

  List:=TObjectList<TMapMarker>.Create(true);

...

  for Marker in List do

...

 

Items есть же

Изменено 20 октября, 2015 пользователем ZuBy