Discussion :

[MélanieS]

Bonjour !


Je suis désolée de venir poster régulièrement comme ça, mais quand je ne trouve vraiment pas de solutions, je n'aime pas rester coincée...

J'ai un nouveau petit problème dans mon programme DELPHI.

Au départ, j'utilisais une base de données avec SQL d'une table de deux champs qui ne contenaient que 12 enregistrements.
Trouvant cela très peu pratique, j'ai décidé de remplacer ma base par un TListView.

Après plusieurs recherches sur internet, j'ai réussi à le remplir correctement avec deux colonnes (qui représentent les champs de ma base) et, je voudrais qu'au clic d'un bouton, je puisse récupérer les valeurs de l'élément sélectionné dans des variables.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
...
var
 variable1 : string;
 variable2 : string;
...
 
procedure Tpage_accueil.MonBoutonClick(Sender: TObject);
begin
   variable1   := MaListeView.Items[MaListeView.ItemIndex].Caption; // récupère l'élément de la colonne 1 de la ligne sélectionnée
   variable2 := MaListeView.Items[MaListeView.ItemIndex].SubItems[1]; // récupère l'élément de la colonne 2 de la ligne sélectionnée
   Label1.Caption := variable1 ;
end;

A l'exécution, je sélectionne donc un enregistrement, et au clic du bouton, j'ai cette erreur qui apparaît...

Impossible de convertir le variant de type (Null) en type (OleStr)

Je penses bien que c'est un problème avec la déclaration de mes variables, mais je ne parviens pas à trouver (sur internet et dans l'aide) comment je dois faire pour les déclarer correctement.

Si quelqu'un avait un indice, merci d'avance

[Papy214]

sur quelle ligne exactement ?

[MélanieS]

Il ne donne aucune ligne d'erreur, c'est bien le souci.

J'ai essayé d'exécuter le mode débogage en mettant un point d'arrêt après la récupération des variables.

Et...J'ai à présent une autre erreur (après sélection et appui sur le bouton) :

Index de Liste hors limites [1]

[Papy214]

les dcus de debogage sont bien inclus dans les options de projet ?

[MélanieS]

C'est à dire ?

[MélanieS]

Alors là, je ne comprend pas ce qu'il s'est passé dans mon histoire.

J'ai supprimé définitivement toute ligne de code liée à SQL et la première erreur s'est arrêtée.

Puis, j'ai changé :

Code :

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

variable2 := MaListeView.Items[MaListeView.ItemIndex].SubItems[1 0];

Et l'erreur d'index s'est arrêtée également.

[Papy214]

Si ton problème est résolu, c'est le principal.

Petite question quand même : pourquoi le TListview ?
Tu pourrais utiliser avantageusement un tclientdataset qui peut enregistrer/charger structure et données depuis un fichier xml.
Ensuite, tu affiches ça dans un tdbgrid.


Pour les dcus de débogage, c'est une case à cocher dans les options de projet , onglet Compiler : Utiliser les dcus de débogage. Ca permet de s'arreter sur les points d'arrèt.

[MélanieS]

J'ai choisi une TListView parce que chacune des recherches "Delphi : Liste à plusieurs colonnes", m'a redirigée sur l'utilisation d'une TListView.
Je cherchais comment gérer le multicolonnes sur une ListBox toute simple et en fait, tous les sujets que j'ai lu disaient d'utiliser une ListView.

C'est pour ça..

Et pour le debogage, oui, c'est bon, c'est coché.

Merci de ton aide, de nouveau

[Papy214]

Un exemple d'utilisation du TClientDataset qui ferait très bien l'affaire

[MélanieS]

Je vais étudié ça, merci beaucoup !