FMX.AddressBook.TCustomAddressBook.AllSources
Delphi
procedure AllSources(var ASources: TAddressBookSources);
C++
void __fastcall AllSources(TAddressBookSources* &ASources);
プロパティ
| 種類 | 可視性 | ソース | ユニット | 親 |
|---|---|---|---|---|
procedure function |
public | FMX.AddressBook.pas FMX.AddressBook.hpp |
FMX.AddressBook | TCustomAddressBook |
説明
デバイスのアドレス帳に含まれるすべての情報源のリストを取得します。
このメソッドを使用して、デバイスのアドレス帳に定義されたすべての情報源のリストを取得することができます。デフォルトの情報源を取得するには、TAddressBook.DefaultSource メソッドを使用します。
例
明確になるよう以下に例を挙げます。これらのコードでは、デバイスのアドレス帳に定義されたすべての情報源を取得する方法を示しています。
メモ： AllSources メソッドを呼び出す前に、TAdressBookSources.Create メソッド（Delphi の場合）または new（C++Builder の場合）を使用して、
ASourcesオブジェクトのインスタンスを明示的に初期化する必要があります。
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();
}
}
詳細とサンプルについては、「モバイル チュートリアル：アドレス帳コンポーネントを使用する（iOS および Android）」を参照してください。