German Aus einer ArrayList Daten in Textfelder oder eine Tabelle schreiben

JOTHA

Well-Known Member
Licensed User
Longtime User
Hallo Forum,

ich habe folgendes Problem:
Mit ContactUtils erhalte ich zu verschiedenen Kontakten Telefonnummern.
Manchmal ist es nur 1 Telefonnummer, manchmal sind es 5 Telefonnummern und manchmal erhalte ich keine Telefonnummer.

Nun möchte ich diese Telefonnummern in maximal 4 Felder (z.B.: EditText oder in eine Tabelle) übertragen.
Die erste Schwierigkeit ist bereits jetzt schon, das ich zwar in dem Beispiel die Telefonnummer als ArrayList im Format [PhoneType=Geschäft, Number=+49-7171-XXXXXX, IsInitialized=true] erhalte und in der Log-Datei auch alle 4 Telefonnummern einzeln sehe, aber wie kann ich jetzt diese zuweisen (siehe Beispiel)?

B4X:
For Each phone As cuPhone In ContactsUtils1.GetPhones(Kontakt.Id)
        Dim Kontakte_Telefon_1,  Kontakte_Telefon_2, Kontakte_Telefon_3, Kontakte_Telefon_4 As String
        Kontakte_Telefon_1 = ContactsUtils1.GetPhones(Kontakt.Id).Get(0)
        Kontakte_Telefon_2 = ContactsUtils1.GetPhones(Kontakt.Id).Get(1)
        Kontakte_Telefon_3 = ContactsUtils1.GetPhones(Kontakt.Id).Get(2)
        Kontakte_Telefon_4 = ContactsUtils1.GetPhones(Kontakt.Id).Get(3)
            Log(""&phone.Number&"")
Next
 
Top