Discussion :

[remixtech]

Bonjour à tous

Je cherche à faire pointer un tlistitem, élément d'une listview, vers un élément d'un tableau de record...
Le problème c'est que ca ne fonctionne pas, voici mon code...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
//declaration du record
  TMailOnline = record
      Objet, Pour, De, Compte: string;
      Taille, Priorite, Id: integer;
      date: tdatetime;
   end;
--   
//Declaration du tableau
   public
   dbb_online: array of Tmailonline;
 
--     
// pointage du tlistitem vers une adresse
  with f_principale.liste_mail.Items.Add do begin
                     ....
                     data := @(f_principale.dbb_online[dbb_online_taille]);
                  end;
--
//utilisation 
 
var index:integer;
lemail:^tmailonline;
begin
   index := liste_mail.ItemIndex;
  lemail := tmailonline(liste_mail.Items[index].data)  ;
   showmessage(lemail.Objet);
   showmessage(inttostr(lemail.id));

Mais ca ne fonctionne pas ... Vous avez une idée ?

Merci d'avance

[cmen76]

Je te suggère d'abandonner le tableau d'enregistrements au profit d'une TCollection de TCollectionItem, approche plus objet.
le Data étant un TCollectionItem, il suffit ensuite de le transtyper
TCollectionItem(LV.Items[i].Data)

[remixtech]

Hargh, le problème c'est que j'ai une bonne partie de mon application qui tourne avec le tableau, et ça m'embête un peu de tout refaire ...
Y'a vraiment pas moyen ?
Merci pour ta réponse rapide

[gb_68]

Bonjour,
ici il y a un petit problème (confusion entre pointeur/structure)

Code :

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

lemail := tmailonline(liste_mail.Items[index].data)  ;

Code :

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

1
2
3
type PMailOnline =  ^tmailonline;
//[...]
lemail := PMailOnline (liste_mail.Items[index].data);

[remixtech]

Merci beaucoup, ça fonctionne mieux

Mais il me reste néanmoins un problème, car je m'occupe d'affecter la propriété Data dans un thread et ça n'a pas l'air de fonctionner, violation d'accès à tout va, des fois ça fonctionne ...

Magie, je vais chercher

[remixtech]

Hargh bon je crois avoir trouvé le problème, en effet je redimensionne constemment mon tableau dynamique pour y ajouter des nouvelles lignes...
Et j'ai l'impression que l'adresse du pointeur change pour les autres ce qui pose un problème et une violation d'accès...

EDIT : Maintenant c'est certain avec un tableau fixe, tout fonctionne bien... Il faut que j'arrive à trouver un moyen de mettre à jours les adresses des pointeurs contenus dans le data du tlistitem... Hargh Merci
En fait il y'a une reallocation de la mémoire...

EDIT2 : Cette réalocation de la mémoire est inévitable, je dois donc juste utiliser setlength moins souvent (tableaux semi-dyna)..

Merci à tous, bonne journée

[Paul TOTH]

absolument, les adresses ne sont pas garanties

c'est bien normal, si tu agrandies le tableau, Delphi peut avoir à le déplacer en mémoire là ou il y a suffisamment de place.

moi je te conseille vivement (si possible) de dériver TListItem pour lui ajouter tout ce dont tu as besoin, au lieu de coller un bête pointer dans la propriété Data

du coup tu remplaces

Code :

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

1
2
3
4
with f_principale.liste_mail.Items.Add do begin
                     ....
                     data := @(f_principale.dbb_online[dbb_online_taille]);
                  end;

par

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
type
 TMyItem=class(TListItem)
 private
  fIndex:integer;
 public
  constructor Create(AOwner: TListItems); 
 end;
 
constructor TMyItem.Create(AOwner: TListItems; Index:integer); 
begin
 inherited Create(AOwner);
 AOwner.AddItem(Self);
 FIndex:=Index;
end;
...
 TMyItem.Create(f_principale.liste_mail.Items,dbb_online_taille)

en tout cas avec tous les paramètres dont tu as besoin, et surtout avec autant de choses que tu veux

[remixtech]

Merci bien, j'ai votre livre au fait

Je regarde cela cette après midi, dériver tlistitem je n'y avais pas pensé merci !
Edit : c'est bon tout fonctionne merci