关于StringList 的 names 和 values 是如何使用的？

Question

值是只读的，但又读不出来
如何使用呀？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  a:TstringList;
begin
  a :=TStringList.Create;
  a.Add('abc');
  showmessage(a.Strings[0]);
  a.Free;
end;

Answer 2

老大，你回的真快
但我看不明白呀，
我是想知道 names 和 values 的属性如何使用呀：(

Answer 3

var
  AStrList: TStrings;
begin
  AStrList := TStringList.Create;
  //添加名称-值对
  AStrList.Add('name1=value1');
  AStrList.Add('name2=value2');
  //通过序号引用名称
  ShowMessage(AStrList.Names[1]);
  //通过名称引用相应的值
  ShowMessage(AStrList.Values[AStrList.Names[2]];
  AStrList.Free;//)
end;

Answer 4

var
  a:TstringList;
begin
  a :=TStringList.Create;
  a.Values['a'] := 'a1';
  a.Values['b'] := 'b1';
  showmessage(a.Values['a']);
  a.Free;
end;