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:
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;