procedure TForm1.btn1Click(Sender : TObject);

var

  m      : Integer;

  s       : string;

  strlst  : TStrings;

begin

  strlst                     := TStringList.Create;

  strlst.Add('张三=80');

  strlst.Add('张四=90');

  strlst.Add('张五=100');

  strlst.NameValueSeparator  := '=';  //设置Name、Value分隔符！

  m                          := strlst.IndexOfName('张四');   //根据Name获取Index

  s                           := strlst.ValueFromIndex[m];     //获取Name的值

 

  strlst.Values['张五']  := '101';                     //根据Name设置Value 

  s                             := strlst.Values['张五'];     //根据Name获取Value

  strlst.Free;

end;