Fehler wenn Listview nicht Selected ist.

[Muetze1]

Und an Stelle von ...

Zitat von KingIR:

Delphi-Quellcode:

if HauptForm.ListView1.SelCount = 0 then
begin
  // Nix ausgewählt...
  exit;
end
else
  MailPfadDaten := TMailPfadDaten(Items[HauptForm.ListView1.Selected.Index].data);

auch einfach nur ...

Delphi-Quellcode:

if Assigned(HauptForm.ListView1.Selected) then
Begin
  MailPfadDaten := TMailPfadDaten(HauptForm.ListView1.Selected.Data);

  // ... etc
End;