如何初始化TStrings对象?(50分)

  • 主题发起人 主题发起人 minimouse
  • 开始时间 开始时间
M

minimouse

Unregistered / Unconfirmed
GUEST, unregistred user!
我用 var x:TStrings 声明了一个 TStrings 对象,但是只要一对它执行add方法就会出错。好像是没有初始化,请问应如何初始化一个对象变量?
 
TStrings是一个抽像类,它的构造方法没有实现,是被它的子孙类所实现的,所以如果你要使
用它的话,必须用它的子孙类来创建,然后才能使用:
procedure Form1Button1Click(Sender:TObject);
var
x:TStrings;
begin
try
x:=TStringList.Create;
...
finally
x.Free;
end;

end;
 
不要用TStrings用TStringList
 
var
sl:TstringList;
begin
try
sl:=TstringList.create;
..
finally
sl.free;
end;
 
其实主要是增加了Object属性,其他的基本一致。
 
多人接受答案了。
 
后退
顶部