FMX.AddressBook.TCustomAddressBook.CreateContact
Delphi
function CreateContact(const ASource: TAddressBookSource = nil): TAddressBookContact;
C++
TAddressBookContact* __fastcall CreateContact(TAddressBookSource* const ASource = (TAddressBookSource*)(0x0));
Inhaltsverzeichnis
Eigenschaften
Typ | Sichtbarkeit | Quelle | Unit | Übergeordnet |
---|---|---|---|---|
function | public | FMX.AddressBook.pas FMX.AddressBook.hpp |
FMX.AddressBook | TCustomAddressBook |
Beschreibung
Erstellt einen neuen Kontakt in der angegebenen Quelle in einem Geräte-Adressbuch.
Mit dieser Methode erstellen Sie einen neuen Kontakt und fügen ihn in die angegebene Quelle in ein Geräte-Adressbuch (Android oder iOS) ein.
Hinweis: Wenn Sie diese Methode ohne das Eingabeargument
ASource
aufrufen, wird die Quelle alsnil
betrachtet. In diesem Szenario kann für bestimmte Typen mobiler Geräte nicht sichergestellt werden, dass der neu erstellte Kontakt synchron mit den Cloud-basierten Speicherungen ist.
Beispiele
Sehen Sie sich zur Klärung das folgende Beispiel an. Diese Codefragmente illustrieren, wie ein neuer Kontakt erstellt und der Vorname, Nachname sowie die geschäftliche E-Mail-Adresse angegeben werden. Die einfache Anwendung fügt der angegebenen Quelle in einem Geräte-Adressbuch den neu erstellten Kontakt hinzu.
Hinweis: Vor der Bearbeitung der E-Mail-Adressen des Kontakts sollten Sie ein Instanz des TContactEmails-Objekts mit der Methode TContactEmails.Create (für Delphi) oder new (für C++Builder) explizit initialisieren.
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();
}
}
Weitere Informationen und Beispiele finden Sie unter Mobile-Tutorial: Verwenden einer Adressbuch-Komponente (iOS und Android).