C++ Builder XE10 开发安卓app如何加载和创建地址簿Address Book

    TAddressBookSource *fCurrentSource;

// Add a newly created contact to Address Book

void __fastcall TForm1::ActionAddContactExecute(TObject *Sender) {

    TAddressBookContact *Contact;

    TContactEmails *eMails;

    Contact = AddressBook1->CreateContact(fCurrentSource);

    __try {

        try {

            Contact->FirstName = edtFirstName->Text;

            Contact->LastName = edtLastName->Text;

            // Add a photo if selected

            if (!Image1->Bitmap->Size.IsZero()) {

                TBitmapSurface *photo = new TBitmapSurface();

                __try {

                    photo->Assign(Image1->Bitmap);

                    Contact->Photo = photo;

                    Image1->Bitmap->SetSize(0, 0);

                }

                __finally {

                    photo->Free();

                }

            }

            // Add the work mail

            eMails = new TContactEmails();

            __try {

                eMails->AddEmail(TContactEmail::TLabelKind::Work,

                    edtWorkMail->Text);

                Contact->EMails = eMails;

            }

            __finally {

                eMails->Free();

            }

            AddressBook1->SaveContact(Contact);

        }

        catch (const EAddressBookException& E) {

            ShowMessage("Cannot create the contact. " + E.Message);

        }

        // Add the contact to the selected group, if any

        try {

            if ((ComboBox1->ItemIndex > -1) && (ComboBox1->ItemIndex <

                fGroups->Count)) {

                AddressBook1->AddContactIntoGroup

                    (fGroups->Items[ComboBox1->ItemIndex], Contact);

            }

        }

        catch (const EAddressBookException& E) {

            ShowMessage("Cannot add the created contact to the group . " +

                E.Message);

        }

        ListViewContacts->BeginUpdate();

        AddListViewItem(Contact);

        TabControl1->ActiveTab = TabItemContacts;

    }

    __finally {

        Contact->Free();

        ListViewContacts->EndUpdate();

        ClearAddContactForm();

    }

}

// Fill the Combo box with existed group names

void __fastcall TForm1::FillGroupList(TAddressBookSource *Source) {

    int i;

    fGroups = new TAddressBookGroups();

    AddressBook1->AllGroups(Source, fGroups);

    __try {

        ComboBox1->BeginUpdate();

        ComboBox2->BeginUpdate();

        ComboBox1->Clear();

        ComboBox2->Clear();

        for (i = 0; i < fGroups->Count; i++) {

            ComboBox1->Items->Add(fGroups->Items[i]->Name);

            ComboBox2->Items->Add(fGroups->Items[i]->Name);

        }

    }

    __finally {

        ComboBox1->Visible = (fGroups->Count != 0);

        ComboBox2->Visible = ComboBox1->Visible;

        btnRemoveGroup->Visible = ComboBox1->Visible;

        ComboBox2->EndUpdate();

        ComboBox1->EndUpdate();

    }

}