Delphi TstringList Stringlist的特殊用法

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;