Dans le but de faire une sorte de TRecordList, je me suis appuyé sur un TObjectList.
Le "record" est déclaré comme ça:
et j'ai (pour tester):
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;Lorsque j'en ai besoin, j'alloue la liste:
Code : Sélectionner tout - Visualiser dans une fenêtre à part Var LG:Tocc;
Ca se passe bien mais, au moment de jouer avec le pseudo-record
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;
Pof l'exception violation de mémoire....lecture de l'adresse 00008...
Code : Sélectionner tout - Visualiser dans une fenêtre à part LG.Select:=false;
Je commente les références à LG pour passer à
avec le même résultat (mais j'ai des doutes sur cette syntaxe )
Code : Sélectionner tout - Visualiser dans une fenêtre à part TObjectList(FindComponent(utilisateur+'List')).Add(LG);
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
Partager