A TStringList object can be used to read a collection of strings stored in a stream. If you register this object with the RegisterType (549) function, you cannot register the TStrListMaker object.
This is the public declaration of the TStringList object:
TYPE TStrIndexRec = Packed RECORD Key, Count, Offset: Word; END; TStrIndex = Array [0..9999] Of TStrIndexRec; PStrIndex = ^TStrIndex; TStringList = OBJECT (TObject) Constructor Load (Var S: TStream); Destructor Done; Virtual; Function Get (Key: Sw_Word): String; END; PStringList = ^TStringList; |