TExtendedStringList

type TExtendedStringList = class(TStringList)

protected

  procedure ResizeRecord(); virtual;

  function GetObject(); override;

  procedure PutObject(); override;

public

  constructor Create();

  destructor Destroy; override;

  procedure Clear; override;

  procedure Delete(); override;

  procedure CreateRecord(); virtual;

  procedure FreeRecord(); virtual;

  procedure FreeAllRecords; virtual;

  function RecordAllocated();

  property Records: pointer; [rw]

  property RecordSize: Integer; [rw]

  property Options: TExtStringsOptions; [rw]

end;

TExtendedStringList

TStringList

TStrings

TPersistent

TObject