FMX.AddressBook.TCustomAddressBook.CreateContact
Delphi
function CreateContact(const ASource: TAddressBookSource = nil): TAddressBookContact;
C++
TAddressBookContact* __fastcall CreateContact(TAddressBookSource* const ASource = (TAddressBookSource*)(0x0));
Propriétés
Type | Visibilité | Source | Unité | Parent |
---|---|---|---|---|
function | public | FMX.AddressBook.pas FMX.AddressBook.hpp |
FMX.AddressBook | TCustomAddressBook |
Description
Crée un nouveau contact dans la source spécifiée dans le carnet d'adresses d'un périphérique.
Utilisez cette méthode pour créer et ajouter un nouveau contact à la source spécifiée dans le carnet d'adresses d'un périphérique (Android ou iOS).
Remarque Si vous appelez cette méthode sans l'argument d'entrée
ASource
, la source est considérée comme ayant la valeurnil
. Dans ce scénario, pour certains types de périphériques mobiles, nous ne pouvons pas garantir que le nouveau contact créé sera synchronisé avec les stockages dans le cloud.
Exemples
A titre explicatif, prenons l'exemple suivant. Ces extraits de code illustrent comment créer un nouveau contact et spécifier le prénom, le nom et l'adresse de messagerie professionnelle de la personne. L'application exemple ajoute le nouveau contact créé à la source spécifiée dans le carnet d'adresses d'un périphérique.
Remarque Avant de modifier les adresses de messagerie du contact, vous devez initialiser explicitement une instance de l'objet TContactEmails en utilisant la méthode TContactEmails.Create (pour Delphi) ou new (pour C++Builder).
var
Contact: TAddressBookContact;
EMails: TContactEmails;
Source: TAddressBookSource;
begin
// Create a new contact in the specified source.
Contact := AddressBook1.CreateContact(Source);
try
Contact.FirstName := 'James';
Contact.LastName := 'Stowner';
// Add the work mail
EMails := TContactEmails.Create;
try
eMails.AddEmail(TContactEmail.TLabelKind.Work, 'JStowner@mycompany.com');
Contact.eMails := EMails;
finally
eMails.Free;
end;
AddressBook1.SaveContact(Contact);
finally
Contact.Free;
end;
end.
{
TAddressBookContact *Contact;
TContactEmails *eMails;
TAddressBookSource *Source;
// Create a new contact in the specified source.
Contact = AddressBook1->CreateContact(Source);
__try {
// Add the contact first name and last name.
Contact->FirstName = "James";
Contact->LastName = "Stowner";
// Add the work mail
eMails = new TContactEmails();
__try {
eMails->AddEmail(TContactEmail::TLabelKind::Work,
"JStowner@mycompany.com");
Contact->EMails = eMails;
}
__finally {
eMails->Free();
}
// Save the newly created contact to Address Book.
AddressBook1->SaveContact(Contact);
}
__finally {
Contact->Free();
}
}
Pour plus d'informations et d'exemples, voir Tutoriel mobile : Utilisation d'un composant Carnet d'adresses (iOS et Android).