Discussion :

[SergioMaster]

Bonjour,

version Rio 10.3

Je butte encore sur un truc jusqu'alors inutilisée de ma part.

Soit un TListView rempli via Livebindings bien sûr


pour obtenir le bouton Delete en rouge j'ai juste modifié la propriété du TextButton, buttontype, en la passant à Delete

le code est simple

Code :

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

1
2
3
4
5
procedure TForm109.ListView1ButtonClick(const Sender: TObject;
  const AItem: TListItem; const AObject: TListItemSimpleControl);
begin
FDQuery1.Delete;
end;

Tout fonctionne sauf si je supprime le dernier élément qui me lève une erreur d'exception

Violation d'accès à l'adresse 0098C445 dans le module 'Projectdelete.exe'. Lecture de l'adresse E9F80436.

Je soupçonne la liaison d'en être responsable (une fin de fichier mal géré ?)

1. Comment y échapper ?
2. Avez-vous déjà eu à faire à ce cas ?
3. Est-ce un bogue de version, j'ai essayé avec Tokyo, même erreur quoique avec une adresse mémoire différente? (je n'ai pas encore vérifié si c'était signalé au niveau du portail qualité)

[SergioMaster]

Je n'ai toujours pas trouvé de solution. La piste bogue semble se confirmer.
J'ai encadré ma suppression par

Code :

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

1
2
3
4
5
6
7
procedure TForm109.ListView1ButtonClick(const Sender: TObject;
  const AItem: TListItem; const AObject: TListItemSimpleControl);
begin
LinkListControlToField1.Active:=False;
FDQuery1.Delete;
LinkListControlToField1.Active:=True; // erreur ici
end;

du coup le message d'erreur devient

---------------------------
Erreur
---------------------------
Argument hors limites.

Ce qui tend bien à prouver que le problème est dans la liaison, mais je n'arrive pas à l'ignorer

[SergioMaster]

Finalement c'est résolu avec peine et grâce aux pistes qu'a pu me fournir Nabil74 en live.

Ce qui m'a mené sur la voie : "as-tu essayé avec une grille ?", je n'y avais même pas songé. J'ai alors positionné un BindNavigator et utilisé le bouton de suppression => pas d'erreur
du coup je me suis dit "que se passerait-il avec l'évènement OnItemClick tout simple ?" => pas d'erreur

la solution alors devient l'utilisation de OnItemClicEx

Code :

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

1
2
3
4
5
6
7
procedure TForm109.ListView1ItemClickEx(const Sender: TObject;
  ItemIndex: Integer; const LocalClickPos: TPointF;
  const ItemObject: TListItemDrawable);
begin
if ItemObject is TListItemTextButton then
 FDQuery1.Delete;
end;

N'empêche, "Helas poor Button, bug or not bug that is the question"