ListView, SubItem et memo

Salut à tous,

Lors de la selection d'un Item dans une listview, je veux copier un subitem dans un tmemo, mais j'ai une erreur EAccessViolation !?
Cette erreur ce produit lors de la 2eme sélection.

Code:

---

1 2 3 4 5 6 7

procedure TFPrincipale.ListView_requetesSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin memo_requetes.Clear; memo_requetes.text := ListView_requetes.ItemFocused.SubItems.Strings[0]; end;

---

Comment faire ?

Tu devrais plutôt faire :

Code:

---

1 2 3 4 5 6 7 8 9

if (Selected) and (Item <> nil) then begin memo_requetes.text := Item.SubItems.Strings[0]; end else begin memo_requetes.Clear; end:

---

ou bien tester directement items.selected<>nil

a+

Citation:

---

Envoyé par antp

Tu devrais plutôt faire :

Code:

---

1 2 3 4 5 6 7 8 9

if (Selected) and (Item <> nil) then begin memo_requetes.text := Item.SubItems.Strings[0]; end else begin memo_requetes.Clear; end:

---

---

C'est la bonne solution...
En fait, ici, on gère un aléa c'est ça ?

Merci pour ton aide !
François