频道分类

Delphi TstringList Stringlist的特殊用法

作者:admin 来源: 日期:2020/4/6 9:55:16 人气: 标签:

 
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 TADODataSet 加载数据到FDMemTable1下一篇:没有资料