救急！！！！ ( 积分: 50 )

J

jeansonliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #1

以下函数为什么出错？如何改？
function TFrmSearch.GetValue(Filename:string;var S:TStrings):boolean;
var
F:tstringlist;
i:integer;
begin
try
f:=tstringlist.create();
f.loadfromfile(filename);
for i:=0 to f.count-1 do
begin
s.Add(f);//出错
end;
result:=true;
except
result:=false;
end;
end;

 

J

jeansonliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #2

以下函数为什么出错？如何改？
function TFrmSearch.GetValue(Filename:string;var S:TStrings):boolean;
var
F:tstringlist;
i:integer;
begin
try
f:=tstringlist.create();
f.loadfromfile(filename);
for i:=0 to f.count-1 do
begin
s.Add(f);//出错
end;
result:=true;
except
result:=false;
end;
end;

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #3

function TFrmSearch.GetValue(Filename:string;var S:TStrings):boolean;
这个函数调用的时候传的s参数实例化了没有（create没有）？？？？？？？？

var
s: TStrings;
begin
s := TStringList.Create;//记得先创建
GetValue('filename.txt', s);
end;

 

D

duhai_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #4

s 是Tstrings类。 这个类是个抽象类， 不可以使用， 不可以创建， 你要是使用，就使用tStringlist吧， 它是实现了Tstrings。

 

J

jeansonliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #5

to hongxing_dl:
我在调用前create了

 

J

jeansonliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #6

我没create,
thanks

 

J

jeansonliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #7

接受答案了.