Uses
System.sysutils, System.types, System.uitypes, system.classes, System.variants,
FMX. Types, FMX. Controls, FMX. Forms, FMX. Graphics, FMX. Dialogs,androidapi.jni.graphicscontentviewtext,
Androidapi.jnibridge, Androidapi.JNI.Telephony, Androidapi.JNI.JavaTypes,
FMX. Helpers.android, Fmx.stdctrls;
Type
TForm1 = Class (Tform)
Btn1:tbutton;
Lbl1:tlabel;
Procedure Btn1click (Sender:tobject);
Private
{Private declarations}
Public
{Public declarations}
End
Var
Form1:tform1;
Telephonymanager:jtelephonymanager;
Telephonyservicenative:jobject;
Implementation
{$R *.FMX}
Procedure Tform1.btn1click (Sender:tobject);
Begin
Telephonyservicenative: = Sharedactivitycontext.getsystemservice
(TJContext.JavaClass.TELEPHONY_SERVICE);
If Assigned (telephonyservicenative) Then
Telephonymanager: = Tjtelephonymanager.wrap
(Telephonyservicenative as Ilocalobject). Getobjectid);
Lbl1. Text:=jstringtostring (Telephonymanager.getline1number);//Get mobile phone number
End
http://blog.csdn.net/syndicater/article/details/19325305
Delphi for Android Get phone number