这里为什么不能通过编译???(50分)

  • 主题发起人 主题发起人 ★蓝天★
  • 开始时间 开始时间

★蓝天★

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.N2Click(Sender: TObject);
begin
setfilename('Dawn’s word');
richedit1.Lines.Clear;
richedit1.Modified:=false;
setmodified(false);
end;

procedure TForm1.N3Click(Sender: TObject);
begin
checkfilesave;
if opendialog1.Execute then
begin
performfileopen(opendialog1.FileName);
richedit1.ReadOnly:=ofreadonly in opendialog1.Options;
end;
end;
编译过程中出现‘末定义setfilename setmodified checkfilesave 问该怎么定义???
 
procedure TForm1.N2Click(Sender: TObject);
begin
setfilename('Dawn’s word');
richedit1.Lines.Clear;
richedit1.Modified:=false;
richedit1.setmodified(false);
//setmodified() 只tcustommemo 的一个属性 不是delphi 的函数 其它的同理
end;

procedure TForm1.N3Click(Sender: TObject);
begin
checkfilesave;
if opendialog1.Execute then
begin
performfileopen(opendialog1.FileName);
richedit1.ReadOnly:=ofreadonly in opendialog1.Options;
end;
 
可能是你的用法不对,
或是你没有包含源。
查看一下帮助。
 
你没有包含源。
查看一下帮助。
 
你没有包含源。
查看一下帮助。
 
是自定义函数吗?有没有声明?
 
我知道,你那本书的抄的那个例子是错的。那本书不好
 
接受答案了.
 
后退
顶部