简体   繁体   English

如何在Android版Delphi 10中使用Maps.TMapCircle?

[英]How to use Maps.TMapCircle in Delphi 10 for Android?

i want to add some TmapCircle to my TMapView for a Android App. 我想为我的Android应用程序的TMapView添加一些TmapCircle Adding Marker works fine. 添加Marker工作正常。 Only Circles are not working. 只有Circles不起作用。 Here is my Code: 这是我的代码:

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 works fine. Fmarkers工作正常。 But Fcircles gives me a Error: 但是Fcircles给我一个错误:

Segmentation Fault 11 分段错误11

in this line: 在这一行:

FCircles.Add(MapView1.AddCircle(MyCircle));

I don't understand why. 我不明白为什么。

I am using Rad Studio 10. 我正在使用Rad Studio 10。

You omit relevant parts of your source code. 您忽略了源代码的相关部分。 Please post a complete example. 请发布完整的示例。

However, I think your initialization code (which you omit) is broken. 但是,我认为您的初始化代码(您忽略了)已损坏。 Most likely, you forgot to create FCircles . 您很可能忘记了创建FCircles Thus, an access violation occures which is indicated by the error message " Segmentation Fault 11 ". 因此,发生访问冲突,这由错误消息“ 分段错误11 ”指示。

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM