FMX.AddressBook.TCustomAddressBook.AllSources

• Aller au parent : TCustomAddressBook

Delphi

procedure AllSources(var ASources: TAddressBookSources);

C++

void __fastcall AllSources(TAddressBookSources* &ASources);

Propriétés

Type	Visibilité	Source	Unité	Parent
procedure function	public	FMX.AddressBook.pas FMX.AddressBook.hpp	FMX.AddressBook	TCustomAddressBook

Description

Obtient la liste de toutes les sources dans le carnet d'adresses d'un périphérique.

Utilisez cette méthode pour obtenir la liste de toutes les sources définies dans le carnet d'adresses du périphérique. Pour obtenir la source par défaut, utilisez la méthode TAddressBook.DefaultSource.

Exemples

A titre explicatif, prenons les exemples suivants : ces extraits de code illustrent comment extraire toutes les sources définies dans le carnet d'adresses d'un périphérique.

Remarque Avant d'appeler la méthode AllSources, vous devez initialiser explicitement une instance de l'objet ASources en utilisant la méthode TAdressBookSources.Create (pour Delphi) ou new (pour C++Builder).

Delphi :

// This onClick event handler displays a list of all sources defined in Address Book and the default source.
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  i: Integer;
  s: string;
begin
  AllSources := TAddressBookSources.Create;
  try
    AddressBook1.AllSources(AllSources);
    DefaultSource := AddressBook1.DefaultSource;
    try
      s := 'Available sources: ' + sLineBreak;
      for i := 0 to AllSources.Count - 1 do
        s := s + AllSources.Items[i].ID + ' / ' + AllSources.Items[i].SourceName
          + ' / ' + AllSources.Items[i].SourceType + sLineBreak;

      s := s + 'Default source: ' + DefaultSource.SourceName + ' / ' +
        DefaultSource.SourceType;
      Memo1.Text := s;
    finally
      DefaultSource.Free;
    end;
  finally
    AllSources.Free;
  end;
end;

C++Builder :

// This onClick event handler displays a list of all sources defined in Address Book and the default source.
void __fastcall TForm1::SpeedButton1Click(TObject *Sender) {
        TAddressBookSources *AllSources;
	int i;
	AllSources = new TAddressBookSources();
	__try {
		AddressBook1->AllSources(AllSources);
		TAddressBookSource *DefaultSource = AddressBook1->DefaultSource();
		__try {
			UnicodeString s = "Available sources: " + sLineBreak;
			for (i = 0; i < AllSources->Count; i++) {
				s = s + AllSources->Items[i]->ID + " | " +
					AllSources->Items[i]->SourceName + " | " +
					AllSources->Items[i]->SourceType + sLineBreak;
			}
			s = s + "Default source: " + DefaultSource->SourceName + " | " +
				DefaultSource->SourceType;
			Memo1->Text = s;
		}
		__finally {
			DefaultSource->Free();
		}
	}
	__finally {
		AllSources->Free();
	}
}

Pour plus d'informations et d'exemples, voir Tutoriel mobile : Utilisation d'un composant Carnet d'adresses (iOS et Android).

Voir aussi

• TAddressBook
• TAddressBookGroup
• TAddressBookContacts
• Tutoriel mobile : Utilisation d'un composant Carnet d'adresses (iOS et Android)