关于constructor构造函数的有关问题

关于constructor构造函数的问题

 public
    { Public declarations }

    sgn:String;
    constructor Create1(Aowner: TComponent;sign:String);

  end;
 
constructor Tfrm_ksjj.Create1(Aowner: TComponent;sign:String);
var 
i:integer;
begin 
  inherited Create( AOwner );
  sgn := sign;
end;

帮忙解释一下这两句的意思吧……


这个函数的主要功能就是在程序运行了以后提供给我一个标志位sgn，通过sgn来做角色划分的。

if sgn='' then
XXXXXXXXXXXXXXXXXX
else
XXXXXXXXXXXX;

ADOQUERY1.OPEN；......；
[解决办法]

constructor Tfrm_ksjj.Create1(Aowner: TComponent;sign:String);
var i:integer;
begin   
  inherited Create( AOwner );//调用窗口的默认创建方法，这个时候如果Form的Create里面有事件会先执行，你可以单步调试试下  
  sgn := sign;
end;

查看更多 下一篇