Question

有关delphi动态建立页面的问题 其中这一段编译不通过，但是网上的例子都是这么写的，错误是open没定义

还有错误如下
if not(OpenFile or NewFile) then // [Error] Unit1.pas(98): Type of expression must be BOOLEAN
OpenFile:=true;//[Error] Unit1.pas(100): Not enough actual parameters

procedure TEditForm.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
if not(OpenFile or NewFile) then
begin
OpenFile:=true;
Open(OpenDialog1.FileName);
Notebook1.Pages.Strings[0]:=ExtractFileName(OpenDialog1.FileName);
TabSet1.Tabs:=Notebook1.Pages;
end
else
begin
DynaPage.DynaAdd(Notebook1,ExtractFileName(OpenDialog1.FileName));
Open(OpenDialog1.FileName);
if Notebook1.Pages.Count>1 then
Close1.Enabled:=true;
end;
end;
end;

Answer 1

从错误可以看出OpenFile或者NewFile不是Boolean类型的数据,所以导致错误

Answer 2

OpenFile 是一个过程或函数名称，而你的代码看起来它是一个布尔变量，所以，你这里缺少参数！

你应该为这个变量另外设定一个名称，比如：boolOpenFile