Delphi中TStringList的用法小结

1、打开Delphi7集成开发环境，在默认工程的Form1窗体放一个Memo1控件和一个Button1按钮。

2、在Unit1.pas源代码文件的implementation区声明一个TStringList类型的变量，并在Form1的OnCreate事件方法，写如下代码：

procedure TForm1.FormCreate(Sender: TObject);

begin

  sl:=TStringList.Create;

  sl.Add('b');

  sl.Add('a');

  sl.Add('c');

  Memo1.Lines:=sl;

end;

3、双击Button1按钮进入OnClick事件方法，写如下代码实现排序功能：

procedure TForm1.Button1Click(Sender: TObject);

begin

  sl.Sort;

  Memo1.Lines:=sl;

  sl.Free;

end;

4、F9运行程序，Memo1控件内容为‘b a c’点击Button1后内容为‘a b c’成功实现排序

5、修改Form1的OnCreate事件方法，代码如下：

procedure TForm1.FormCreate(Sender: TObject);

begin

  sl:=TStringList.Create;

  sl.Add('a=111');

  sl.Add('b=222');

  sl.Add('c=333');

  sl.Add('d=444');

  Memo1.Lines:=sl;

end;

修改Button1的OnClick方法代码如下：

procedure TForm1.Button1Click(Sender: TObject);

begin

  ShowMessage(sl.Names[1]);

  ShowMessage(sl.Values['b']);

  Memo1.Lines:=sl;

  sl.Free;

end;

解释一下：

Names[n]是只读属性，只能通过位置读取key名称。

Values[key]可以通过key给value赋值

也就是说key一旦确定无法改变，只有value可以改变

6、F9运行程序，点击Button1，先弹出位置为1的键值对的key，再弹出key为‘b’对应的value值。