delphi常识

Question

procedure Tmain.N11Click(Sender: TObject);
begin
  if checkuser(useusename, 'databak') then exit;
  if not assigned(frmbackup) then begin
    Application.CreateForm(tfrmbackup, frmbackup);
    frmbackup.ShowModal;
  end;
end;
         谁能帮忙分析下具体意思，每句的作用，~~~~~~
 我就是菜鸟中的菜鸟！！
 求救~~~~~~~~~~~~~

Answer 1

  if checkuser(useusename, 'databak') then exit; //判断用户是不是databak,不是的退出.
  if not assigned(frmbackup) then begin          //判断frmbackup是不是存在,不存在的话
    Application.CreateForm(tfrmbackup, frmbackup); //建立frmbackup
    frmbackup.ShowModal;                              //以ShowModal的方式显示frmbackup
  end; 

Answer 2

Application 是一个全局实例应该和主线程有关frmbackup 中 frm是前缀表示 继承Form的一个类(命名习惯),但我习惯写成 BackupForm必须有assigned(obj)判断动作，不然重复创建会报错。