Listenindex überschreitet das Maximum

[Christian Seehase]

Moin Arne,

als Funktion, die Du noch mit in die Methode einbauen kannst (der Übersicht halber):

Delphi-Quellcode:

procedure TForm1.ListView1Click(Sender : TObject);

  function IsValidSubitemIndex(const AiIndex : integer) : boolean;
  begin
    Result := AiIndex < ListView1.Selected.SubItems.Count;
  end;

begin
  //...
  if IsValidSubitemIndex(5) then begin
    // Hier ist dann sichergestellt, dass ListView1.Selected.SubItems[5] existiert
  end;
  //...
end;