急，在线等待的一个问题，关于在定义类时如何引用在其他地方自定义的数据类型 ( 积分: 20 )

unit uLotteryParameter;

interface
uses Classes,SysUtils,QDialogs;

type
TMyNum=array[0..40] of string;
//
type Tmygroup =record
code :smallint;
groupid :smallint;
groupname :string;
minnum :smallint;
maxnum :smallint;
end;
type Pmygroup =^Tmygroup;

/*************************************************/
/* 我在其他单元中定义了以上的pmygroup数据类型，*/
/* 我怎样写才能在定义下边的这个类时引用到上边的数据类型*/
/*如果跟我现在这样写的话，系统会提示没有声明Pmygroup这个类型 */
/*************************************************/
type
TMyParameter=class(TObject)

private
procedure init;
//下边的过程定义当中要用到外部的一个自定义数据类型
procedure loadgroup(var rtnGroupmygroup;iGroupid:smallint)



public

constructor create;
published
end;



implementation

unit uLotteryParameter;

interface
uses Classes,SysUtils,QDialogs;

type
TMyNum=array[0..40] of string;
//
type Tmygroup =record
code :smallint;
groupid :smallint;
groupname :string;
minnum :smallint;
maxnum :smallint;
end;
type Pmygroup =^Tmygroup;

/*************************************************/
/* 我在其他单元中定义了以上的pmygroup数据类型，*/
/* 我怎样写才能在定义下边的这个类时引用到上边的数据类型*/
/*如果跟我现在这样写的话，系统会提示没有声明Pmygroup这个类型 */
/*************************************************/
type
TMyParameter=class(TObject)

private
procedure init;
//下边的过程定义当中要用到外部的一个自定义数据类型
procedure loadgroup(var rtnGroupmygroup;iGroupid:smallint)



public

constructor create;
published
end;



implementation

不会吧，富翁们全都休息了吗

你是否在使用这个类的单位中引用了这个单元?

我不用引用其他单元，我就把这个数据类型定义在当前的单元里，然后再下边再定义类，在新的类中，引用不到这个数据类型

你为什么在上面写两个Type关键字

去掉也不能解决问题啊

我给你试一下

非常感谢啊

unit uLotteryParameter;
interface
uses Classes,SysUtils,QDialogs;
type
TMyNum=array[0..40] of string;
//
type Tmygroup =record
code :smallint;
groupid :smallint;
groupname :string;
minnum :smallint;
maxnum :smallint;
end;
type Pmygroup =^Tmygroup;
type
TMyParameter=class(TObject)
private
procedure init;
//下边的过程定义当中要用到外部的一个自定义数据类型
procedure loadgroup(var rtnGroupmygroup;iGroupid:smallint);
public
constructor create;
published
end;
implementation

{ TMyParameter }

constructor TMyParameter.create;
begin

end;

procedure TMyParameter.init;
begin
end;

procedure TMyParameter.loadgroup(var rtnGroup: Pmygroup;
iGroupid: smallint);
begin
end;
end.

上面那个应该是没问题的

接受答案了.