Error : TListBox.DeleteSelected

Bonjour,

Après une très longue pause, j'ai voulu reprendre mes projets sous Delphi et suis donc passé sous Code Typhon car je n'ai plus accès à des versions abordables pécunièrement pour moi.

Après la conversion d'un projet et lors de la compilation, j'ai :

Citation:

---

OptionUnit.Pas(213,17):Error:identifier idents no member "DeleteSelected"

---

Il s'agit d'un TListBox.DeleteSelected qui me donnait toute satisfaction sous Delphi 7 mais qui apparament n'existe plus.

Je l'ai donc remplacé par :

Code:

---

LBSelfTest.Items.Delete(LBSelfTest.ItemIndex);

---

Cela a l'air fonctionnel mais n'ai-je rien oublié? Est-ce totalement identique?

Merci d'avance.

Bonjour.

Sous Delphi7, je n'ai jamais utilisé DeleteSelected. Et je ne connais pas son implémentation.

Pour supprimer un item, la fonction Delete est à utiliser.
Simplement, il serait bon de faire auparavant un contrôle de ItemIndex, car si aucun item n'est sélectionné, cela va déclencher une exception.

Code:

---

1 2	with LBSelfTest do if ItemIndex >= 0 then Items.Delete(ItemIndex);

---

Cordialement
Thierry

Bonjour,

Je ne sais pas ce que faisait précisément le DeleteSelected, mais il devait probablement remettre aussi à -1 l'ItemIndex pour qu'il ne pointe pas sur l'enregistrement suivant (surtout s'il n'y en pas !)

Donc :

Code:

---

1 2 3 4 5

with LBSelfTest do if ItemIndex>-1 then begin Items.Delete(ItemIndex); ItemIndex:=-1; end;

---

Enfin, je ne sais pas si les ListBox gèrent la multisélection, à prévoir dans ce cas...

Bonsoir bonsoir,

je vous ai trouvé ça, dans le StdCtrls.pas de D2006 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TCustomListBox.DeleteSelected; var I: Integer; begin if MultiSelect then begin for I := Items.Count - 1 downto 0 do if Selected[I] then Items.Delete(I); end else if ItemIndex <> -1 then Items.Delete(ItemIndex); end;

---

Enjoy, ;)

Merci à tous!

Les vérifications d'existance de la ListBox ainsi que la remise à -1 de l'index étaient déjà dans le code original et cette liste n'utilise pas la multisélection mais le code est à conserver sous le coude.

Il m'a fallu un peu de temps pour comprendre qu'il fallait tout compiler pour avoir l'IDE mais il m'a l'air très bien.

Bonjour.

Comme quoi on apprend du nouveau en répondant à une question...

Sous Lazarus (à vérifier dans code Typhon) et Win7 (à vérifier sous Linux):

* avec un listbox qui est MultiSelect : il n'est pas possible d'initialiser ItemIndex à -1 sauf si le ListBox est vide. S'il n'est pas vide, ItemIndex est toujours > -1 même si l'item n'est pas affiché en bleu ! (je trouve que c'est un petit bug). Conclusion: ne jamais utiliser ItemIndex pour un delete, mais bien la propriété Selected (cfr le code de JP).
* avec un ListBox qui n'est pas MultiSelect : le delete d'un item réinitialise automatiquement ItemIndex à -1. Ceci dit, il reste préférable de le réinitialiser soi-même (pour en être certain ;)). Parfois, il peut être utile de repositionner l'ItemIndex à l'endroit du Delete. Dans ce cas, j'utilise ce petit code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure DeleteLBItem(AListBox: TListBox); var I: integer; begin with AListBox do if ItemIndex >= 0 then begin I:= ItemIndex; Items.Delete(I); if I < Count then ItemIndex:= I else if Count > 0 then ItemIndex:= I-1 else ItemIndex:= -1; end; end;

---

Cordialement
Thierry

Bonjour

Citation:

---

le code est à conserver sous le coude

---

Oui, et je dirais même plus, ce qui serait bien maintenant, c'est de proposer l'ajout de la fonction dans le bug tracker de FPC.
Il faut avoir a la dernière version trunk de FPC, ce qui n'est pas mon cas, et faire un patch.
Je pense que cela sera accepté rapidement car cela améliorera la compatibilité avec Delphi.