一个简单的delhpi 问题﹐请进来看看。。。

Question

一个简单的delhpi 问题﹐请进来看看我在一个库单元中的public 中定义了一个过程为:
procedure u_status(var csts:char) ;        //界面元素状态该过程代码为﹕
procedure tfrm_kjyw.u_status(var csts:char);
begin
  case csts of
  'I' :
    begin
        dbet_pzhm.Enabled := false ;
        dbcb_type.Enabled := false ;
        dbet_dt.Enabled   :=false ;
        dbcb_gsdept.Enabled :=false ;
        dbet_acct.Enabled:=false ;
        dbet_amount.Enabled :=false ;
        dbet_descript.Enabled:=false ;
    end
  end ;
end ;
作用是设置窗体上各对象状态﹐
然后史在create 事件里调用该过程::
procedure Tfrm_kjyw.FormCreate(Sender: TObject);
begin
  u_status('I') ;
end;但编译时总是在调 用语句u_status(‘I’)里编译出错﹐
出错语句为﹕
[Error] kjyw.pas(78): Types of actual and formal var parameters must be identical请高手解决…………

Answer 1

申明错
procedure u_status(var csts:char);改为 procedure u_status(csts:char);

Answer 2

procedure tfrm_kjyw.u_status(const csts:char);

Answer 3

先 procedure u_status(const csts:char) ;

Answer 4

http://www.somade.com/是个很专业的技术社区,去那里找找吧,或许有你要的答案~