大悟还俗

邮箱 key_ok@qq.com 我的收集 http://pan.baidu.com/share/home?uk=1177427271
  新随笔  :: 联系 :: 订阅 订阅  :: 管理

TStrings与Memo.Lines赋值的问题

Posted on 2013-10-09 11:22  大悟还俗_2  阅读(346)  评论(0编辑  收藏  举报
//想实现在函数中生成Memo1的内容,而后赋给Memo.Lines
//方法1:
var
  s: TStrings;
begin
  s := TStringList.Create; 
  AddMemoData(s); 
  Memo1.Lines := s; //进行对象复制,而不是简单的指针赋值
{
procedure TCustomMemo.SetLines(Value: TStrings);
begin
  FLines.Assign(Value);//进行对象的深度复制
end;
}
  s.Free; //释放TStrings
end;
//方法2
var
  s:TStrings;//全局
function AddMemoData:TStrings;
begin
  Result:=TStringList.Create;
  Result.Add();
end;
procedure TButton1.Click;
begin
  Memo1.Lines:=AddMemoData;
  s.Free;
end;
View Code