★
★蓝天★
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 问该怎么定义???
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 问该怎么定义???