简单问题。。。。。unit中引用没有FORM 的unit

Question

是否把这个unit加到工程中了？如果加入了就试试tikkypeng(千两狂死郎)的　

Answer 1

最笨的办法是：搜索“user_sys”找到把它D了

Answer 2

1,将没有FORM的的UNIT加入工程
２.将没有FORM的的UNIT  uses进当前单元
３.若还有错,Ctrl+f,在工程范围内查找user_sys,若未定义此标识符则定义之

Answer 3

代码如下:
unit xtdy;interface
 uses   Windows, Messages,  Variants, Classes,  Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;  
 implementation
 uses  unit1;
 procedure user_sys(u_name,sj:string);
  var  s:string;
 begin
with datamodule1.pwd do
   begin
     close;sql.Clear ;
     sql.Add('select * from sys where ');
     sql.add('sys_name='''+u_name+'''');
     open;
     if recordcount>0 then
       s:=fieldbyname('sys_id').asstring;
   end;
 
 end;     其他窗口也加入UNIT,可是就是不行

Answer 4

implementation 前加
procedure user_sys(u_name,sj:string);
  

Answer 5

implementation 前加
var
procedure user_sys(u_name,sj:string);
  

Answer 6

[Error] xtdy.pas(7): Identifier expected but 'PROCEDURE' found
不行，出现以上提示
也试过
public
    { Public declarations }
  procedure user_sys(u_name,sj:string);
  end;
在pwd引用时出现如下错误且PWDK中以加入unit
[Error] pwd.pas(26): Unsatisfied forward or external declaration: 'Tfpwd.user_sys'