delphi使用VB的dictionary对象

var

  Dict:Variant;

  n,ncount,i:byte;

  kArr,iArr:array of variant;

  Ts,Ts2:TStringList;

  kv,iv,FGF:string;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  Dict:= CreateoleObject('scripting.dictionary');

  Ts:=tstringlist.Create;  Ts2:=tstringlist.Create;

  Ts.LoadFromFile('dat.txt');

  ncount:=ts.count-1;

  FGF:='◆';

  for n:=1 to ncount do

    begin

      Ts2.Delimiter:=',' ;

      Ts2.DelimitedText:=Ts[n];

      kv:=ts2[0];

      iv:=ts2[1]+FGF+ts2[2]+FGF+ts2[3]+FGF+ts2[4]+FGF+ts2[5];

      Dict.add(kv,iv);

    end;

  Ts.free;  Ts2.Free;

  ncount:=dict.count-1;

  setlength(kArr,ncount);  setlength(iArr,ncount);

  kArr:=dict.keys;  iArr:=dict.items;

  dict.RemoveAll;

  dict:='';

  meo.Clear;

  for n:=0 to ncount do

  begin

    meo.Lines.Add('Key：'+kArr[n]+'    ┃    '+'Item：'+iArr[n]);

    meo.Lines.Add('');

  end;

    { 释放数组方法：2种 }

  kArr:=nil;  {nil：无；零；虚无；空类型；不存在的 }

  Finalize(iArr);  { Finalize：完成；使结束；把…最后定下来 }

end;

输出结果：