[Delphi] インテントを使用してカレンダーを参照する

// uses に Androidapi.Helpers, Androidapi.JNI.APP, Androidapi.JNI.Provider,
//         Androidapi.JNI.JavaTypes, Androidapi.JNI.Net,
//         Androidapi.JNI.GrapicsContentViewText を追加します

// インテントは Intent: JIntent; で定義しています
// uri は uri: JUri_Builder; で定義しています
// カレンダーは mCalendar: JCalendar; で定義しています

// 今日の日付を取得します
mCalendar := TJCalendar.JavaClass.getInstance;

// uri buildUpon を使用して必要なパラメータを設定
uri := TJCalendarContract.JavaClass.CONTENT_URI.buildUpon;
uri.appendPath(stringToJString('time'));
TJContentUris.JavaClass.appendId(uri, mCalendar.getTimeInMillis);

// インテントを作成します
Intent := TJIntent.JavaClass.init(TJSettings.JavaClass.ACTION_VIEW);

// 参照する日付をセットします
Intent.setData(uri.build);

// startActivity を使ってインテントを飛ばします。
TAndroidHelper.Activity.startActivity(Intent);

// 今日の日付を取得して +10日します
mCalendar := TJCalendar.JavaClass.getInstance;
mCalendar.add(TJCalendar.JavaClass.DATE, 10);