splitstring

procedure splitstring(

  source: string;

  var dest: stringarty;

  separator: Char = c_tab;

  trim: Boolean = False

); overload;

procedure splitstring(

  source: msestring;

  var dest: msestringarty;

  separator: msechar = c_tab;

  trim: Boolean = False

); overload;

function splitstring(

  source: string;

  separator: Char = c_tab;

  trim: Boolean = False

):stringarty; overload;

function splitstring(

  source: msestring;

  separator: msechar = c_tab;

  trim: Boolean = False

):msestringarty; overload;