这个function为什么不对

Question

function FrmShow(FrmName: TFrmName): Boolean;
begin
  FrmName := TFrmName.Create(Application);
  with FrmName do
  begin
    ShowModal;
    Free;
  end;
end;

Answer 1

去掉Free，或者改为
begin
  try
    FrmName := TFrmName.Create(Application);
    FrmName.ShowModal;
  except
    FrmName.Free;
  end;
end;

Answer 2

begin
  try
    FrmName := TFrmName.Create(Application);
    FrmName.ShowModal;
    Result := true;
  except
    FrmName.Free;
    Result := false;
  end;
end;

Answer 3

TFrmName 是什麼??? 有問題

Answer 4

function FrmShow(FrmName: TForm): Boolean;
begin
  try
    FrmName := TFrmName.Create(Application);
    FrmName.ShowModal;
    Result := true;
  except
    FrmName.Free;
    Result := false;
  end;
end;

Answer 5

[Error] PublicUnit.pas(141): Undeclared identifier: 'TFrmName'

Answer 6

TFrmName应该是窗体，TFrmName:TFrom.

Answer 7

如果你的函数不在FrmName这个窗体里,你要先引用FrmName 这个窗体单元

Answer 8

function FrmShow(FrmName: TForm): Boolean;
begin
  try
    FrmName := TFrmName.Create(Application);
    FrmName.ShowModal;
    Result := true;
  except
    FrmName.Free;
    Result := false;
  end;
end;跟楼上的!

Answer 9

我要根据不同的参数弹出不同的窗口
FrmShow(Form1); //弹出Form1
FrmShow(Form2); //弹出Form2
FrmShow(Form3); //弹出Form3
FrmShow(Form4); //弹出Form4
FrmShow(Form5); //弹出Form5

Answer 10

DELPHI版高手如云，竟然解决不了这个小问题