obj:=CreateObject('TStringList');

  obj.Delimiter:=";";

  obj.DelimitedText:='A=ABC;B=123;C=456.;D=abc';

  SN:=obj.count;

  r:=array();

  for i:=0 to SN-1 do

  begin

   r[i,'name']:=obj.Names(i);//获取name值

   r[i,'value']:=obj.values(obj.Names(i));//获取指定name对应的value值

  end

  return r;