TChecklistbox (gelöst)

[haderlump]

Hallo zusammen.
Ich benutze die Checklistbox.
als erstes fülle ich die Zeilen mit

Code: Alles auswählen

elementliste.Items.Add(element^.name);

klappt auch ganz gut.
nachdem ich den relevanten Datensatz gerade da habe, möchte ich gleich die Häckchen setzen.
mit dem Befehl

Code: Alles auswählen

if element^.schattenbf_aktiv then elementliste.Checked[elementliste.ItemIndex] := true;

bekomme ich aber die Fehlermeldung: TChecklistbox Index -1 out of bound.
Was mache ich da falsch?.
wird der Index nicht automatisch beim hinzufügen einer neuen Zeile erhöht?

Gruß Fritz

[sstvmaster]

HI Fritz,

das sollte so gehen:

Code: Alles auswählen

 
elementliste.Items.Add(element^.name);
if element^.schattenbf_aktiv then elementliste.Checked[elementliste.Items.IndexOf(element^.name)] := true;
 

LG guten Rutsch, Maik

[wp_xyz]

Das Suchen mit IndexOf kann man sich sparen, denn Add ist eigentlich eine Funktion, die den Index des neuen Elements zurückliefert:

Code: Alles auswählen

var
  idx: Integer;
...
  idx := elementliste.Items.Add(element^.name);
  if element^.schattenbf_aktiv then elementliste.Checked[idx] := true;

[haderlump]

Danke wp_xyz so hat es geklappt.
Again what lerned!!
Fritz