如何使用TStrings.Text属性(20分)

R

RailGundi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #1

var
ss : TStrings;
str : string;
begin
str := 'this is my test';
ss := TStrings.Create;
ss.Text := str;
ss.add(str);
end;
程序执行到,
ss.Text := str;
ss.Add(str);
这两步时,均会报错: 'abstract error',只执行一条都会报错.
请问我应该怎么用 Text 属性

 

A

apw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #2

TStrings是抽象类，不能直接实例化，应使用它的子类进行实例化。
对于你的应用可以用TStringList;
var
ss : TStringList;
str : string;
begin
str := 'this is my test';
ss := TStringList.Create;
ss.Text := str;
ss.add(str);
end;

 

F

freeknight2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #3

var
str : string;
st :Tstrings;
begin
str := 'dasdasd';
st := Tstrings.Create;
st.Add(str);
end;
这样不就行了？要Text干什么？

 

孤

孤独之孤

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #4

如下也能行.
var
ss : TStrings;
str : string;
begin
str := 'this is my test';
ss := TStringList.Create;
ss.Text := str;
ss.add(str);
end;

 

R

RailGundi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #5

多人接受答案了。