Discussion :

[Pedro]

Salut

voila, je voudrais, dans ma tstringlist, enregistrer les pointeurs sur des record que j'ai appelé TLayer... Je fais donc comme ça:

Code :

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

1
2
 
  t.AddObjects(TObject(Layer));

t est une tstringlist et Layer une ^TLayer...

Maintenant, je voudrais avoir le contraire c'est à dire récupérer le TLayer que j'ai emmagasiné...

Code :

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

1
2
 
  Layer:=TLayer(t.Objects[i]);

Et la ça ne marche pas "Invalid Typecast"...
Pourquoi dans un sens, il arrive à caster et pas dans l'autre? Ou alors, aurais-je fait une erreur plus grosse que moi?

Merci d'avance

[cmen76]

Encore faudrait-il que TLayer=class(TObject) ...

[Pedro]

Ben non justement

Code :

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

1
2
3
4
 
  TLayer=record
    ...
  end;

... Mais TObject est un pointeur et dans mon exemple, Layer en est un aussi, alors où est le problème?

[cmen76]

alors essaye

Code :

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

Layer:=pointer(t.Objects[i]);

[Pedro]

Ah ben oui, tiens, j'y avais pas pensé... Merci je vais essayer!

[Reisubar]

Tu devrais plutôt utiliser une TList plutôt qu'une TStringList... C'est fait pour ça...