TSpeedStringList

type TSpeedStringList = class

protected

  FOnChange: TNotifyEvent;

  SumOfUsed: array [0..NbSubList-1] of Integer;

  datasUsed: array [0..NbSubList-1] of Integer;

  datas: array [0..NbSubList-1] of PSpeedListObjects;

  lengthDatas: array [0..NbSubList-1] of Integer;

  procedure Changed; virtual;

  function Get(); virtual;

  function GetObject();

  function GetCount;

  function GetStringList;

  procedure SetStringList();

public

  procedure NameChange();

  procedure ObjectDeleted();

  destructor Destroy; override;

  constructor create;

  function AddObj();

  function Add();

  procedure Clear;

  function Find();

  property OnChange: TNotifyEvent; [rw]

  property Objects []: TSpeedListObject; [r]

  property inobject []: TObject; [rw]

  property Strings []: string; default; [r]

  property count: Integer; [r]

  property StringList: TStrings; [rw]

  property text: string; [rw]

end;

TSpeedStringList

TObject