本文整理自网络,侵删。
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 android实例-录音与回放(播放mp3)(xe8+小米2)
Delphi webbrowser1提取网页中的所有链接、点击第 n 个链接
Delphi tms web core webmemo 横竖滚动条
更多相关阅读请进入《Delphi》频道 >>