各位大虾，请帮小虾一个小忙，帮忙看看是哪里错了？ ( 积分: 10 )

unit backtype;

interface

type mybacktype = array of string;

type

Tbacktype = class
private
//back_type : array of string;
public

function getbacktype:mybacktype ;
property db_type:mybacktype read getbacktype ;

end;
implementation

function getbacktype:mybacktype;
var
s_type : mybacktype;
begin
s_type[0] := 'oracle';
s_type[1] := 'MSSQLServer';
Result := s_type;
end;

end.

unit backtype;

interface

type mybacktype = array of string;

type

Tbacktype = class
private
//back_type : array of string;
public

function getbacktype:mybacktype ;
property db_type:mybacktype read getbacktype ;

end;
implementation

function getbacktype:mybacktype;
var
s_type : mybacktype;
begin
s_type[0] := 'oracle';
s_type[1] := 'MSSQLServer';
Result := s_type;
end;

end.

唉！得以解决！