XE5 Android, как вывести список событий из календаря? - Delphi FireMonkey - Ответ 7020727

function TCalendarEventsManager.GetAvailableEvents: TStringList;
var
  wCursor : JCursor;
  projection : TJavaObjectArray<JString>;
  wUri : Jnet_Uri;
 
 begin
  Result := TStringList.Create;
 
  projection := TJavaObjectArray<JString>.Create(6);
  projection.Items[0] := StringToJString('_id');
  projection.Items[1] := StringToJString('account_name');
  projection.Items[2] := StringToJString('calendar_displayName');
  projection.Items[3] := StringToJString('title');
  projection.Items[4] := StringToJString('dtstart');
  projection.Items[5] := StringToJString('dtend');
 
  wUri:=TJnet_Uri.JavaClass.parse(StringToJString('content://com.android.calendar/events'));
  wCursor:= SharedActivity.getContentResolver.query(wUri, projection, nil, nil, nil);
 
  if (wCursor.getCount > 0) then
    begin
      while (wCursor.moveToNext) do
      begin
       Result.Add(Format('%d=%s',[wCursor.getLong(0), JstringtoString(wCursor.getString(3))]))
      end;
    end;
   wCursor.close;
end;

procedure Form.Button1Click(Sender: TObject);
var
 wStrlist : TStringList;
begin
  wStrlist := fManager.GetAvailableEvents;
  try
    ShowMessage( wStrlist.Text );
  finally
    wStrlist.Free;
  end;
end;