Var
A:TStrings;
Begin
A:=TStringList;
A.NameValueSeparator :=’=’;
A.Add('username=user');
A.Add('password=pwd');
//修改数据,如果键值不存在则自动新增一条记录
A.values['username']:='ur'; //修改
A.values['user_name']:='ur'; //新增
A.free;
End;
Var
A:TStrings;
Begin
A:=TStringList;
A.NameValueSeparator :=’=’;
A.Add('username=user');
A.Add('password=pwd');
//修改数据,如果键值不存在则自动新增一条记录
A.values['username']:='ur'; //修改
A.values['user_name']:='ur'; //新增
A.free;
End;