大家好:
请你们看一下我下面的程序好吗?
.....
.....
.....
var
Form1: TForm1;implementation
var
alpha:integer;
procedure test(a:integer):forward;//????????????????????????????????????
procedure test1(var a:integer);
begin
a:=a-1;
if a>0 then
test2(a);
writeln(a);
end;
procedure test2(var a:integer);
begin
a:=a div 2;
if a>0 then
test1(a]);
end;{$R *.dfm}end.我的问题是:我在运行时,系统提醒我:forward 没有声明
请问:我怎么声明“forward”啊???
它是一个保留的关键字还要用声明啊?
请你们看一下我下面的程序好吗?
.....
.....
.....
var
Form1: TForm1;implementation
var
alpha:integer;
procedure test(a:integer):forward;//????????????????????????????????????
procedure test1(var a:integer);
begin
a:=a-1;
if a>0 then
test2(a);
writeln(a);
end;
procedure test2(var a:integer);
begin
a:=a div 2;
if a>0 then
test1(a]);
end;{$R *.dfm}end.我的问题是:我在运行时,系统提醒我:forward 没有声明
请问:我怎么声明“forward”啊???
它是一个保留的关键字还要用声明啊?
解决方案 »
- delphi 参数里的负1到底代表什么意思呀
- 如何把一个数据库中得多张表转到异地数据库上去
- 其他格式的数据要导入到sqlserver数据库中,用什么样的方式导入会比较好一点?
- 求一个函数,可以计算出一个时间段内多个具体时间点,急!!!
- 如何能知道将要创建的“链接服务器”存不存在?
- 请问我的TMenu中的TMenuItem是动态生成 我不去调用TMenuItem的释放函数,程序结束的时候会不会出现内存泄露?
- 这个算法怎么做?(建筑)
- 关于DBGrideh的使用问题(若干)
- 关于flash]
- 各位高手,如何undo在paradox数据库中
- dbgrid于table的问题
- 如果写一个DLL返回一个XML的文本数据(XML的数据很大可能有10000行)采用什么方法好呀, 用PChar 可以吗?
begin
A;
end;procedure A;
begin
B;
end;
begin
a:=a-1;
if a>0 then
test2(a);
writeln(a);
end;procedure test2(var a:integer);
begin
a:=a div 2;
if a>0 then
test1(a);
end;