关于Tstrings是问题

Question

出错信息：abstract error主要代码如下：====================================================================
var
content:Tstrings;
begin     
     content:=Tstrings.Create;
     content.AddStrings(memo1.Lines);....
     IdMessage1.Subject:=edit1.Text;  //设置邮件发送的标题
     IdMessage1.Body.Assign(content); //设置邮件发送的主体
......
end;错在哪里，该如何修改？

Answer 1

content:= TStringList.Create; 

Answer 2

Tstrings 是抽象类,在delphi中含有抽象函数的类是不"允许"直接创建实例.除非你知道你在做什么,一般情况必须有子类覆盖重写抽象方法, 例如TStringList就是TStrings的子类, 你直接用TStringList就可以了

Answer 3

变量定义成Tstrings类型，适用性广
创建时使用Tstringlist.create;