Fehler wenn Listview nicht Selected ist.

**wlfmario**

Hallo zusammen,

ich mache hier irgend etwas Falsch.
In meiner Listview möchte ich wenn ich die Entf. Taste drücke einen Eintrag löschen was nicht das Problem ist.
Nur wenn kei Eintrag Selected ist, verursacht mei Procedure fehler.
Wie kann ich jetzt abfragen ob überhaupt etwas ausgewählt wurde oder nicht ?
Hier mal meine Procedure:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure MailLoeschen;

//------------------------------------------

// Gespeicherte Mail Löschen

//------------------------------------------

var

  MailPfadDaten: TMailPfadDaten;

  i: integer;

begin

  with HauptForm.ListView1 do

  begin

    for I := 0 to Items.Count - 1 do

          if (Items.Item[i].Selected) then

        MailPfadDaten := TMailPfadDaten(Items[I].data);

  end;

  DeleteFile(ExtractFilePath(Application.ExeName) +

    '/Mail-In/' + MailPfadDaten.Mailpfad);

  HauptForm.ListView1.DeleteSelected;

  with HauptForm do

  begin

  StatusBar1.Panels.Items[2].Text := 'Anzahl Mails gesammt: ' + IntToStr(ListView1.Items.Count);

  end;

  end;

Fehler wenn Listview nicht Selected ist.

Fehler wenn Listview nicht Selected ist.

Forumregeln