|
|
#2
anthony6342007-05-15 18:39
|
tclass1 = class
private
Function FReadStrlist : TStrings ;
public
property strlist : TStrings read FReadStrlist ;
end;
Function tclass1.FReadStrlist : TStrings ;
var
templist : TStringS;
begin
templist := TStringlist.create ;
templist := 获取值
result := templist ;
end;
这里面的strlist 在哪创建对象啊 像红色部分