Telefon rehberi listeleme

[Dostk]

İyi akşamlar;

10.1 ile telefon rehberini listeliyorum fakat listeleme sonunda "Argument out o range" mesajı çıkıyor bunu nedeni neden olabilir acaba.

Kod: Tümünü seç

  var
  Rehber: TAddressBookContacts;
  Cx: TAddressBookContact; // Uses FMX.AddressBook.Types, FMX.AddressBook
  LItem: TListViewItem;
  begin
  Rehber := TAddressBookContacts.Create;
  AddressBook.AllContacts(Rehber);
  with Form2.ListView do
  begin
  BeginUpdate;
  try
  Items.Clear;
  for Cx in Rehber do
  begin
  LItem := Items.Add;
  LItem.Data['Telefon'] := Cx.Phones[0].Number;
  LItem.Data['Kim'] := Cx.DisplayName;
  end;
  finally
  EndUpdate;
  Rehber.Free;
  end;

end;
end;

[fesiharslan]

Merhaba;
Bu hata genellikle olmayan bir veri dizisine ulaşılmaya çalışıldığında ortaya çıkar. Burada Rehber kayıt sayısı ile oluşturulan döngünün sayısının eşit olmadığını gösteriyor. Dolayısıyla eklenmek istenen son kayıtta hata veriyor.

[fesiharslan]

Daha önce yaptığım örnek bir uygulamayı paylaşmışım. İndirip, inceleyin.
viewtopic.php?f=36&t=35755#p192753