FMX.AddressBook.TCustomAddressBook.AllSources

• Übergeordnet: TCustomAddressBook

Delphi

procedure AllSources(var ASources: TAddressBookSources);

C++

void __fastcall AllSources(TAddressBookSources* &ASources);

Eigenschaften

Typ	Sichtbarkeit	Quelle	Unit	Übergeordnet
procedure function	public	FMX.AddressBook.pas FMX.AddressBook.hpp	FMX.AddressBook	TCustomAddressBook

Beschreibung

Ruft eine Liste aller Quellen aus einem Geräte-Adressbuch ab.

Mit dieser Methode rufen Sie eine Liste aller in einem Geräte-Adressbuch definierten Quellen ab. Verwenden Sie die Methode TAddressBook.DefaultSource, um die Standardquelle abzurufen.

Beispiele

Sehen Sie sich zur Klärung die folgenden Beispiele an. Diese Codefragmente illustrieren, wie alle in einem Geräte-Adressbuch definierten Quellen abgerufen werden.

Hinweis: Bevor Sie die Methode AllSources aufrufen, müssen Sie eine Instanz des ASources-Objekts mit der Methode TAdressBookSources.Create (für Delphi) oder new (für C++Builder) explizit initialisieren.

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();
	}
}

Weitere Informationen und Beispiele finden Sie unter Mobile-Tutorial: Verwenden einer Adressbuch-Komponente (iOS und Android).

Siehe auch

• TAddressBook
• TAddressBookGroup
• TAddressBookContacts
• Mobile-Tutorial: Verwenden einer Adressbuch-Komponente (iOS und Android)