Hallo,
ich bekomme immer den Fehler "Listenindex überschreitet das Maximum (1)" mit folgendem Quelltext:
Delphi-Quellcode:
sl := TstringList.Create;
sl.LoadFromFile(OpenDialog1.Filename);
vcard := TIdVcard.Create(self);
vcard.ReadFromTStrings(sl);
DBEdit3.Text := vcard.FullName.SurName;
DBEdit4.Text := vcard.FullName.FirstName;
DBEdit5.Text := vcard.Addresses[0].StreetAddress;
DBEdit6.Text := vcard.Addresses[0].PostalCode;
DBEdit7.Text := vcard.Addresses[0].Locality;
DBEdit8.Text := vcard.Addresses[0].Nation;
DBEdit9.Text := vcard.Telephones[0].Number;
DBEdit11.Text := vcard.Telephones[1].Number;
DBEdit12.Text := vcard.Telephones[2].Number;
DBEdit13.Text := vcard.EMailAddresses[0].Address;
DateTimePicker1.DateTime := vcard.BirthDay;
AdsTable1.Post;
vcard.Free;
sl.Free;
Wo ist da der Fehler?
Viele Grüße...