list := TStringList.Create;
  list.Text:= str；
  list.Count;

  list.Clear;
  list.Add(str);
  list.Count;

Memo.Text:=str;//也不触发SetTextStr事件，所以结果也不对

Memo1.Lines.Text:=str;//这样就对了，哎。

在str有换行符的情况下，两种赋值方法，str相同，但是list的结果不一定相同。

text赋值正确处理了换行符。

Add方法为处理换行符。

Text后count有9行，但是add后只有1行，没换行符处理。

看原始文件 System.Classes.pas

procedure TStrings.SetTextStr(const Value: string);

和function TStringList.Add(const S: string): Integer;的区别就知道了。add没处理换行符，而SetTextStr非常仔细的处理了 换行符。

但是读取值的时候，Memo.Text 和Memo.Lines.Text是相等的。

TStringList TMemo Text与Add赋值的区别