Hallo,

Was ich nicht verstehe, unter W2K kommt keine Exception, aber unter WinXP.

Hier mal mein Source:

markieren

Delphi-Quellcode:

procedure TForm_Main.MovieListCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if ((Item.Index mod 2)= 0)
  then begin
         MovieList.Canvas.Brush.color:=clSkyBlue;
         if Item.SubItems.Strings[8] = '-' then MovieList.Canvas.Brush.color:=clRed; // hier kommt die Exception!!!
       end;
end;

was ist daran falsch?

MfG
schuetze09

evtl. weil Item.SubItems.Strings[8] nur von 0-7 geht? und nicht von 1-8? Indizes fangen immer bei 0 an und gehen bis Count - 1.

rantanplan

Hallo
Mach mal eine Ueberpruefung, ob Strings[8] ueberhaupt existiert

markieren

Delphi-Quellcode:

  if ((Item.Index mod 2) = 0) then
  begin
    MovieList.Canvas.Brush.color := clSkyBlue;
    if Item.SubItems.Strings[8] = '-' then
      if Item.SubItems.Count >= 7 then
       MovieList.Canvas.Brush.color := clRed; // hier kommt die Exception!!!
  end;

@toms:
habe ich mal ausprobiert, geht leider auch nicht. kommt genau die gleiche Fehlermeldung...

meine Listview hat insgesamt 10 Spalten, also 1 item und 9 subitems...

mfg
schuetze09

so muss es sein

markieren

Delphi-Quellcode:

  if ((Item.Index mod 2) = 0) then
  begin
    if (Item.SubItems.Count > 8) and (Item.SubItems.Strings[8] = '-') then
       MovieList.Canvas.Brush.color := clRed
    else
       MovieList.Canvas.Brush.color := clSkyBlue;
  end;

@SirThornberry

SUPER so geht es DANKE....

MfG
schuetze09

@schuetze: Wenn es so geht heißt das aber auch das vermutlich kein Index 8 vorhanden ist, denn sonst wäre der Fehler nie aufgetaucht, außer du hast paar zeilen die weniger spalten haben und dann wiederum welche die wirklich eine 9te Spalte haben (Index 8)

@SirThornberry :

heißt das, wenn eine Spalte keinen Wert hat, verringert sich der index?

Bsp:
Zeile 1: 9Spalten und 9 Werte = max Index 8
Zeile 2: 9Spalten und 8 Werte = max Index 7

Hallo schuetze,

wenn deine ListView insgesamt 9 Spalten hat, und du eine neue Zeile (Items.Add) hinzufügst, so sind die SubItems für die einzelnen Spalten noch nicht belegt. Du musst für jede Zeile nochmals SubItems.Add('...') ausführen, damit diese existieren. Andernfalls bekommst du beim Zugriff wie gehabt eine AV.

Greetz
alcaeus