procedure TForm1.btn1Click(Sender : TObject); var m : Integer; s : string; strlst : TStringList; 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;
转载请注明原文地址: https://www.6miu.com/read-67744.html
