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 做的还是 很好的 足够用了。