Discussion :

[qi130]

Dans le but de faire une sorte de TRecordList, je me suis appuyé sur un TObjectList.

Le "record" est déclaré comme ça:

Code :

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

1
2
3
4
type Tocc=Class
   NomTable:String;
   Select,Insert,Update,Delete:boolean;
   end;

et j'ai (pour tester):

Code :

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

Var LG:Tocc;

Lorsque j'en ai besoin, j'alloue la liste:

Code :

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

1
2
3
with TObjectList.Create do begin // création de la liste 
           Name:=utilisateur+'List';
        end;

Ca se passe bien mais, au moment de jouer avec le pseudo-record

Code :

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

LG.Select:=false;

Pof l'exception violation de mémoire....lecture de l'adresse 00008...

Je commente les références à LG pour passer à

Code :

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

TObjectList(FindComponent(utilisateur+'List')).Add(LG);

avec le même résultat (mais j'ai des doutes sur cette syntaxe )

N'ayant (vraiment) pas l'habitude des objets "home-made" j'en appelle aux bonnes volontés du forum pour me sortir de l'ornière

[j.p.mignot]

SANS garantie!
avant de faire LG.select:=..
il faut creer LG via
LG:=Tocc.Create(xxx); // xxx=nil ou form1, ou ...
afin d'initier LG
après LG.Select devrait être en ordre.
Ne pas oublier Lg.Destroy; si on a initialisé l'object avec (nil) si non LG sera detrit à la destruction de l'obet qui le contrôle.

[qi130]

Bien, au moins ça ne pète plus

Je verrais à l'autopsie pour savoir si ça fait ce que je souhaite

Merci.