Problem mit IDvCard und Stringlist

[Grolle]

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...

[marabu]

Hallo Stefan,

du solltest nur auf vorhanden Einträge einer Liste zugreifen:

Delphi-Quellcode:

begin
// ...
      with vCard do
      begin
        if Telephones.Count > 0 
          then DBEdit9.Text := Telephones[0].Number
          else DBEdit9.Text := '';
        if Telephones.Count > 1 
          then DBEdit11.Text := Telephones[1].Number
          else DBEdit11.Text := '';
// ...

Grüße vom marabu

[Grolle]

Das habe ich mir schon gedacht! Besten Dank!