uses ComObj, ActiveX;
procedure TForm1.btn1Click(Sender: TObject);
var
List: Variant;
A: String;
begin
List := CreateOLEObject('Scripting.Dictionary');
List.Add(111, 'abc');
if List.Exists(111) then
A := List.Item(111);//报错，对象不存在
end;
var
SS: TStringList;
begin
SS := TStringList.Create;
try
SS.Add('111=abc');
SS.Add('112=def');
//……
ShowMessage(SS.Values['111']);
ShowMessage(SS.Values['112']);
finally
FreeAndNil(SS);
end;
end;
var
SS: ThashedStringlist;
begin
SS := ThashedStringlist.Create;
try
SS.Add('111=abc');
SS.Add('112=def');
//……
ShowMessage(SS.Values['111']);
ShowMessage(SS.Values['112']);
finally
FreeAndNil(SS);
end;
end;
var
i: Integer;
SS: TStringList;
begin
SS := TStringList.Create;
try
for i:=0 to SS.Count-1 do
begin
ShowMessage(SS.Names[i]);
ShowMessage(SS.ValueFromIndex[i]);
end;
finally
FreeAndNil(SS);
end;
end;
