新手提高：共同函数编写

Question

unit comm_unitinterface
procedure check_key(var key:char);///////////////////////////////
impkementationprocedure check_key(var key:char);    begin
       if not (key in ['0'..'9','.',#8]) then
           key:=#0;
    end;end.

Answer 1

要在comm_unit单元的interface中声明这个过程
如: 
  procedure name.................

Answer 2

unit comm_unit;interface
//************************************ 要加下一行
procedure check_key(var key:char);
//************************************implementationprocedure check_key(var key:char);
begin
  if not (key in ['0'..'9','.',#8]) then
    key:=#0;
end;

Answer 3

函数跟过程类似，只不过函数要返回一个值，你可以参考程序中的过程的声明！Good Luck!