Fehler beim TListView-OnCompare

[Schneewittchen]

Hi,

ich habe eine TListView mit den Methoden OnCompare und OnColumnClick um die Liste zu sortieren. Das funktioniert ja auch, aber wenn ich die bestehende Liste sortiere und dann irgendwann einen neuen Eintrag hinzufüge, erhalte ich folgenden Fehler:

Im Projekt ist eine Exception der Klasse EStringListError aufgetreten. Meldung: 'Listenindex überschreitet das Maximum (1)'. Prozess wurde angehalten.Mit einzelne Anweisung oder Start fortsetzen

Er versucht nach dem Hinzufügen gleich die Liste neu zu sortieren, aber dann tritt der Fehler auf.
Ich weiß echt nicht mehr was ich ändern soll, hoffe es kann mir jemand helfen!
Danke

Delphi-Quellcode:

procedure Tframe_geburtstag.GeburtstageColumnClick(Sender: TObject;
  Column: TListColumn);
begin   
  ColumnToSort := Column.Index;
  (Sender as TCustomListView).AlphaSort;
end;

Delphi-Quellcode:

procedure Tframe_geburtstag.GeburtstageCompare(Sender: TObject; Item1,
  Item2: TListItem; Data: Integer; var Compare: Integer);
var
  ix: Integer;
begin
  if ColumnToSort = 0 then
    Compare := CompareText(Item1.Caption,Item2.Caption)
  else begin
   ix := ColumnToSort - 1;
   Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
  end;

Auf Button Klick in der ListView einen Eintrag hinzufügen:

Delphi-Quellcode:

    Item := Geburtstage.Items.Add;
    Item.Caption := '' + '11.11.2001';  //Datum
    Item.SubItems.Add('typ'); //Typ
    Item.SubItems.Add(Edt_Nachname.Text);

[Luckie]

Ich würde mal so tippen, dass es kein SubItem mit dem Index ix gibt.

[alcaeus]

Hi Schneewittchen,

ich gehe mal davon aus dass du nach dem Hinzufügen die ColumnClick-Routine aufrufst. Ich hab jetzt kein Delphi und kann daher nicht ausprobieren, was passiert wenn man eine Liste mit einem Item sortieren will. Führ den ColumnClick nicht immer aus, sondern nur wenn die Anzahl Elemente größer als 1 ist:

Delphi-Quellcode:

if Geburtstage.Items.Count > 1 then
  GeburtstageColumnClick(Geburtstage, Geburtstage.Columns[0]);

Greetz
alcaeus

[Schneewittchen]

Die Routine wird ja standardmäßig von Delphi ausgeführt, ich ruf die nicht explizit auf.
Es sind immmer mehrere Elemente vorhanden, das ist nicht das Problem.
Der Fehler tritt mitten in der Liste auf unter dem Sortieren, wenn er Werte vergleicht...

[APriesing]

Hi,

vielleicht hilft das ja noch:

Habe beim portieren von Delphi3-Code nach Delphi5 gemerkt, daß bei TListView_Items im OnCompare-Event die Elemente "Item1.SubItems[i]" bzw. "Item2.SubItems[i]" ab Index 11 (!!) gezählt werden. Kleinere Werte führen unweigerlich zu einer Exception.

Delphi 5 zählt offensichtlich von Null an, und was Delphi 7 macht, keine Ahnung.

Gruß
Achim

[Jens Schumann]

Zitat von APriesing:

Delphi 5 zählt offensichtlich von Null an, und was Delphi 7 macht, keine Ahnung.

Alle Delphi Versionen beginnen mit der Zählung bei 0 (Ausgenommen bei Type String das fängt die Zählung bei 1 an)