Einzelnen Beitrag anzeigen

Grolle

Registriert seit: 5. Nov 2004
Ort: Coesfeld
1.268 Beiträge
 
Delphi 2010 Professional
 
#1

Problem mit IDvCard und Stringlist

  Alt 30. Okt 2006, 11:53
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...

  Mit Zitat antworten Zitat