On reflection I would do as Patrick suggests - declare the structure as a
class
--------------------------------------------------------
TNodeRecord = record ==> TNodeObject = class(TObject)
typ : TRecType; typ : TRecType;
... ...
my_pointer := new(TNodeRecord); ==> my_object := TNodeObject.create;
my_pointer^.typ := curr_type; my_object.typ := curr_type;
... ...
strlst.addobject(txt, my_pointer); strlst.addobject(txt, my_object);
my_pointer := strlst.objects[idx]; my_object := strlst.objects[idx];
old_type := my_pointer^.typ; old_type := my_object.typ;
-------------------------------------------------------
and then you can forget the pointers entirely. I have been using the
pointer method due to matching older code, not from conviction.
Remember to dispose record structures created with new() in the same way you
free objects created with create().
HTH
Stephen
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
