你的unit3是这样生成的吗?
File -> New -> Unit
File -> New -> Unit
解决方案 »
- Fast Report 4.7 变量传递出错
- delphi 中TDBEdit显示字段的格式问题????
- fastreport乱码,高手进.重分感谢!
- 有点不解!!!!!
- 怎样可以把注册表的信息读出来啊?
- DELPHI7 访问AccessXP数据库,总是报错,奇怪,什么都没干呢
- 怎么为paradox7建立数据源
- 关于DBGRID多条记录选择的问题!
- 为什么我的delphi7中没有adoquery1.fieldbyname('bmmc').AsString
- 在系统中删除目录或者说删除文件会不会产生系统消息,这个消息是什么?哪位高手可以教一下我?谢谢
- 如何用程序使Memo翻到最后一页?
- 哪位有关于把图标等文件转换为RCDATA的编译器?
//交换use
implementation
//交换use//但最好不要相互引用单元
//建立公共单元来处理最好
TMatrix = array[1..3,1..3] of integer;
TName = array[1..3,1..3]of char;
Gohead = class
myname:TName;
mymatrix:TMatrix;
mynow:TMatrix;
procedure run();
end;implementation
procedure Gohead.run(myname:TName;mymatrix,mynow:TMatrix);
var
i,j:integer;
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
mynow:=1;
end;
end;
for i:=1 to 3 do
begin
while not((mynow[i,1]=mymatrix[i,1]) and (mynow[i,2]=mymatrix[i,2]) and
(mynow[i,3]=mymatrix[i,3]))
begin
for j:=1 to 3 do
begin
write(mymatrix[i,j]);
end;
end;
end;
end;
end.
摆脱大家了!!!!
不可以在interface部分互相引用,可以一个在interface
部分,一个在implementation部分
请教!!!
拜托了!!!