Question

Delphi程序，解释下着程序的意思

type
TfwTypeEdit = class(TBase_Form)
property AForm:TFormClass read FAForm write FAForm;
public
FormName:TForm;
FormCaption:string;
procedure TfwType.BtnNewClick(Sender: TObject);
begin
AForm:=TfwTypeEdit;
FormName:=fwTypeEdit;
FormCaption:='客户资料(修改)';
inherited;
end;

Answer 1

type
  TfwTypeEdit = class(TBase_Form)
property AForm:TFormClass read FAForm write FAForm;
public
    FormName:TForm;
    FormCaption:string;
procedure TfwType.BtnNewClick(Sender: TObject);  //按钮点击时触发
begin
  AForm:=TfwTypeEdit;
  FormName:=fwTypeEdit;
  FormCaption:='客户资料(修改)';                //FormCaption的值为：客户资料(修改)
  inherited;                                          //继承父类          
end;

//代码真的太不规范了，看都看不懂！

Answer 2

什么乱七八糟的一点都不规范