func init()
  fvar(old)
  lng.decl_class_var(list, 'PStrList')
  old = block.select(BLK_INIT)
  println(list + ' := NewStrList;')
  block.select(BLK_FREE)
  println(list + '.Free;')
  block.select(old)
end

func doAdd(_data)
  println(list + '.Add(', String, ');')
end

func doClear(_data)
  println(list + '.Clear;')
end

func doText(_data)
  println(list + '.Text := ', e_str(_data), ';')
end

func doLoad(_data)
  println(list + '.LoadFromFile(', FileName, ');')
end

func doSave(_data)
  println(list + '.SaveToFile(', FileName, ');')
end

func doDelete(_data)
  // TODO
end

func doAppend(_data)
  // TODO
end

func doSort(_data)
  // TODO
end

func doInsert(_data)
  // TODO
end

func doGetIndex(_data)
  // TODO
end

func doGetString(_data)
  // TODO
end

func Text()
  return()
end

func Count()
  return(list + '.Count')
end

func Index()
//  return()
end

func String()
//  return()
end

func Array()
//  return()
end