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;

推荐分享