本文整理自网络,侵删。
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;
相关阅读 >>
Delphi 简化版的inputquery 中文版输入对话框
Delphi xe system.netencoding 字符串base64编码解码
Delphi idhttp最简洁的修改和取得cookie例子
github上通过星级评估排名前10的最受欢迎的开源Delphi项目
更多相关阅读请进入《Delphi》频道 >>