Fehler wenn Listview nicht Selected ist.

[KingIR]

Hi,

anstelle von

Delphi-Quellcode:

  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;

kannst du das hier benutzen:

Delphi-Quellcode:

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

Sollte gehen

//edit, sry, variable falsch kopiert