Question

delphi 类实例化出问题，以下代码无法实例化，求解

type
TFenGe=class(Tobject)
type
arrArray=array of String;
public
function fenGe(str:String;ch:String):arrArray;
end;
源码：
unit FenGe;
interface
type
TFenGe=class(Tobject)
type
arrArray=array of String;
public
function fenGe(str:String;ch:String):arrArray;
end;

implementation
{ TFenGe }
function TFenGe.fenGe(str, ch: String): arrArray;
var
temp:String;
i:integer;
begin
temp:=str;
i:=pos(temp,ch);
while i<>0 do
if i<>0 then
begin
setLength(Result,length(Result)+1);
Result[length(Result)-1]:=copy(temp,0,i-1);
delete(temp,0,i);
i:=pos(temp,ch);
end;
setLength(Result,length(Result)+1);
Result[length(Result)-1]:=temp;
end;

end.

Answer 1

type
arrArray=array of String;
TFenGe=class(Tobject)
public
class function fenGe(str:String;ch:String):arrArray;
end;

这样能编译通过，有什麽问题

Answer 2

type
TFenGe=class(Tobject)
type
arrArray=array of String;
这段定义有问题，应该先把数组类型的定义放前面，然后再定义类TFenGen，TFenGen的类函数应该紧跟类的声明。

追问

不行啊。改成：
type
arrArray=array of String;
TFenGe=class(Tobject)
function fenGe(str:String;ch:String):arrArray;
end;
错误提示：
E2010 Incompatible types: 'Dynamic array' and 'arrArray'

追答

type
arrArray=array of String;
TFenGe=class(Tobject)
function fenGe(str:String;ch:String):arrArray;
end;
应该为
type
arrArray=array of String;
type
TFenGe=class(Tobject)
function fenGe(str:String;ch:String):arrArray;
end;

追问

一样的问题

追答

哦，那你的构造函数和解析函数写了没有？

追问

需要加构造函数吗？

追答

在类型声明里要加上下面两句
constructor create; virtual;
destructor destroy; override;
在下面的实现里，最简单的构造以及解析函数应该类似这样：
constructor TFenGe.create;
begin
Inherited Create;
end;
destructor TFenGe.Destroy;
begin
Inherited destroy;
end;