TStrings與Memo.Lines賦值的問題

//想實如今函數中生成Memo1的內容，然後賦給Memo.Lines //方法1： var s: TStrings; begin s := TStringList.Create; AddMemoData(s); Memo1.Lines := s; //進行對象複製,而不是簡單的指針賦值 { procedure TCustomMemo.SetLines(Value: TStrin

>>阅读原文<<