TStrList

type TStrList = object(TObj)

protected

  procedure Init; virtual;

  fList: PList;

  fCount: Integer;

  fCaseSensitiveSort: Boolean;

  fTextBuf: PChar;

  fTextSiz: DWORD;

  function GetPChars();

  function Get();

  function GetTextStr;

  procedure Put();

  procedure SetTextStr();

  destructor Destroy; virtual;

  procedure SetValue();

  function GetValue();

public

  function IndexOfName();

  property Values: String; [rw]

  function Add();

  procedure AddStrings();

  procedure Assign();

  procedure Clear;

  procedure Delete();

  function IndexOf();

  function IndexOf_NoCase();

  function IndexOfStrL_NoCase();

  function Find();

  procedure Insert();

  function LoadFromFile();

  procedure Move();

  procedure SetText();

  procedure SetUnixText();

  procedure SaveToFile();

  property Count: Integer; [r]

  property Items: String; default; [rw]

  property ItemPtrs: PChar; [r]

  function Last;

  property Text: String; [rw]

  procedure Swap();

  procedure Sort();

protected

  fNameDelim: Char;

  function GetLineName();

  procedure SetLineName();

  function GetLineValue();

  procedure SetLineValue();

public

  property LineName: String; [rw]

  property LineValue: String; [rw]

  property NameDelimiter: Char; [rw]

  function Join();

end;

TStrList

TObj

_TObj