procedure TForm1.Button2Click(Sender: TObject);
var
  MyList: TStringList;
begin
  MyList := TStringList.Create;
  try
    MyList.Text := Memo1.Text;

    ShowMessage(MyList.Values['aaa']);
    ShowMessage(MyList.Values['ddd']);
    ShowMessage(MyList.Values['eee']);
ShowMessage(MyList.Values['']);
finally MyList.Free; end; end;

 

结果:

===================

value里面带=号是没有问题的,如果key里面第一个字符是等号,则认为key 是空,

看来delphi 做的还是 很好的 足够用了。

posted on 2014-05-06 17:16  del88  阅读(186)  评论(0编辑  收藏  举报