Danke für die schnelle Antwort !
jetzt habe ich nur das Problem wenn ich die Procedure aufrufe, das ich immer wenn ich mehr als zwei Files lade folgende Fehlermeldung erscheint.
Zitat:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt MailClient.exe ist eine
Exception der Klasse EListError aufgetreten. Meldung: 'Listenindex überschreitet das Maximum (2)'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
Wenn es nur zwei Files sind klappt es.
hier mal die Procedure, in Listview steht der Pfad zum File.
Delphi-Quellcode:
procedure TMailSend.ListViewAnhangKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Var i: integer;
begin
if key = VK_DELETE then
if ListViewAnhang.Selected <> nil then
begin
for i := 0 to pred(MsgSend.MessageParts.Count) do
begin
if (MsgSend.MessageParts.Items[i].StoredPathName = ListViewAnhang.Selected.Caption) then
MsgSend.MessageParts.Items[i].Free;
end;
ListViewAnhang.DeleteSelected;
{Anhang Löschen}
end
else
exit;
end;