[英]How to use Maps.TMapCircle in Delphi 10 for Android?
我想為我的Android應用程序的TMapView
添加一些TmapCircle
。 添加Marker
工作正常。 只有Circles
不起作用。 這是我的代碼:
uses
system.SysUtils, System.Types, System.UITypes, System.Classes,
System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.TabControl, FMX.StdCtrls, FMX.Controls.Presentation,
FMX.Gestures, System.Actions, FMX.ActnList, FMX.Maps, System.Sensors,
System.Sensors.Components, IdBaseComponent, IdIntercept,System.IOUtils,
IdBlockCipherIntercept, Data.FMTBcd, Data.DB, Data.SqlExpr,
Data.DbxSqlite, System.Generics.Collections;
...
..
.
private
{ Private declarations }
FMarkers : TList<TMapMarker>;
FCircles : TList<TMapCircle>;
...
..
.
implementation
var
MyMarker : TMapMarkerDescriptor;
MyCircle : TMapCircleDescriptor;
...
..
.
procedure TTabbedwithNavigationForm.Button1Click(Sender: TObject);
var
Position: TMapCoordinate;
begin
position.Latitude := mapview1.Location.Latitude;
position.Longitude := mapview1.Location.Longitude;
MyMarker := TMapMarkerDescriptor.Create(Position, 'MyMarker');
MyMarker.Draggable := True;
MyMarker.Visible :=True;
Fmarkers.Add(MapView1.AddMarker(MyMarker));
MyCircle := TMapCircleDescriptor.Create(Position, 190);
Mycircle.StrokeWidth := 3;
FCircles.Add(MapView1.AddCircle(MyCircle));
end;
Fmarkers
工作正常。 但是Fcircles
給我一個錯誤:
分段錯誤11
在這一行:
FCircles.Add(MapView1.AddCircle(MyCircle));
我不明白為什么。
我正在使用Rad Studio 10。
您忽略了源代碼的相關部分。 請發布完整的示例。
但是,我認為您的初始化代碼(您忽略了)已損壞。 您很可能忘記了創建FCircles
。 因此,發生訪問沖突,這由錯誤消息“ 分段錯誤11 ”指示。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.