Discussion :

[lohot]

Bonjour,

J'envoye l'item d'une ListBox dans un Edit en faisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Edit.Caption := ListBox.Items[ListBox.ItemIndex]

Malheureusement, quand je clique dans la ListBox hors une case d'un item, une erreur se déclare : Out Of Bounds. Donc j'ai rajouté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If ListBox.ItemIndex < ListBox.Items.Count - 1 then
  Edit.Caption := ListBox.Items[ListBox.ItemIndex]

Mais rien n'y fait.

Quelqu'un aurait-il une idée ?

Merci d'avance.

Lohot

[alex01pernot]

essaye sa sa marche chez moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

edit1.Text := listbox1.Items.Strings[listbox1.ItemIndex];

[TicTacToe]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If ( ListBox.ItemIndex < ListBox.Items.Count - 1 ) and ( ListBox.ItemIndex >= 0 )
  then  Edit.Caption := ListBox.Items[ListBox.ItemIndex]

Car l'indice peut être -1 !

[lohot]

Merc i à alex01pernot et TicTacToe pour leur aide.

Les deux méthodes fonctionnent mais je préfère utiliser le code avec la condition car, même si elle est un peu plus lourde, elle peut être utilisée pour d'autre action que de remplir un Edit tels que transférer les items de la ListBox à une base de données (qui est mon cas).

A+

Lohot