Discussion :

[Anthony17]

Bonjours à tous,

je recherche le moyen de faire une listBox avec un certain nombre de données (nom de ville). J'aimerais afficher (lorsque je clique sur une ville) le département correspondant.
Est-ce possible, ou je suis obligé de faire un EditText avec une comparaison de chaine de caractere?

Merci pour votre aide

[anapurna]

salut

afficher ou comment ?

@+ Phil

[OutOfRange]

Bonjour
Une solution simple consisterait à faire précéder le nom de chaque ville, dans chaque item du listbox, de son code postal
Resterait à "extraire" le nom du département d'une autre listbox contenant la liste des départements par ordre alpha...

Bonne prog

[Anthony17]

J'ai parlé d'une liste de ville pour mieux me faire comprendre. en fait je veux asocier un lieu (ca peu etre une ville mais aussi une eglise, un marchand de chaussure, ...) à ses coordonnées GPS (latitude et longitude).
Je voudrais répertorier une liste de lieu dans une ListBox. Lors du clique sur un Item, je voudrais que les coordonnées GPS s'affiche dans un Label par exemple.

Pour faire ceci il faut que j'associe du texte dans une listBox(eglise, ...) à des données.
C'est ici que je ne sais pas faire.

Sinon j'avais une autre idée, c'est de faire un EditBox avec ensuite des comparaison de chaine de caractère du style:
Si EditBox := 'eglise'
afficher :='Lat 001 25 45 Long 45 12 78'
Si EditBox := 'charcutier'
afficher :='Lat 001 24 45 Long 45 12 78'
......

Mais c'est long.

Quelle est la meilleur solution??

[anapurna]

salut


pour regle ton probleme il faut que tu creer un objet

Code :

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

1
2
3
4
5
Tlieu = Class(Object)
  Ville   : String;
  Coord  : Tpoint;
  LibPOD : String;
end;

donc en initialistation tu
fait pour chaque lieu

Code :

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

listbox1.AddItem(format('%s ( %s ) ';[alieu.Ville,alieu.LibPod]),alieu);

la recuperation se fait par

Code :

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

1
2
3
 
  alieu := ListBox1.Items.Objects[ListBox1.ItemIndex]
  LabelPos.Caption := format(' x:%d  y:%d',[alieu.Coord.x,alieu.Coord.y] );

@+ Phil

[Graffito]

Bonjour,

Le plus simple c'est de créer des éléments de listbox comme ceci :

Code :

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

1
2
Eglise     : 001 25 45W 45 12 78N
Charcutier : 001 24 45W 45 12 78N

Sinon, utiliser une solution de type de celle fournie par Anapurna.

[Anthony17]

merci pour ces differentes solutions je vais réflechir à la plus simple pour mon problème