16,746
社区成员




{unit1单元;}
type
TArrData = Array[0..2,0..3] of Word;
type
TProcess = Class(TObject)
procedure get(tmp:TArrData);
end;
procedure TProcess.get(tmp:TArrData);
begin
end;
{unit2单元:}
{不用再定义TArrData,引用unit1单元,可以直接使用unit1中的TArrData}
uses unit1;{放在interface下面的uses里面}
type
TProcess = Class(TObject)
procedure get(tmp:TArrData);
end;
procedure TProcess.get(tmp:TArrData);
begin
end;
{2个单元的get函数调用,都是这样:}
var
tArr:TArrData;
Process:TProcess;
begin
Process:=TProcess.Create;
Process.get(tArr);
...
end;
interface
type
TArrData = Array[0..2,0..3] of Word;
type
TProcess = Class(TObject)
procedure get(tmp:TArrData);
end;
implementation
procedure TProcess.get(tmp:TArrData);
begin
end;
感觉你问问题的方式怪怪的,没怎么理解你的意思。get(tmp:TArrData);这样子是没问题的……