Undeclared identifier: 'SaveToFile' 程序长了点看起来有点麻烦，但还是希望大家不吝赐教！！
错误主要出现在下面两段程序中：
unit untMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, ComCtrls, AppEvnts, ImgList, ActnList,
StdActns, ExtActns, ToolWin;
type
TfrmMain = class(TForm)
ActionList1: TActionList;
MainMenu1: TMainMenu;
PopupMenu1: TPopupMenu;
ImageList1: TImageList;
ApplicationEvents1: TApplicationEvents;
File1: TMenuItem;
Edit1: TMenuItem;
Search1: TMenuItem;
Window1: TMenuItem;
Help1: TMenuItem;
EditCut1: TEditCut;
EditCopy1: TEditCopy;
EditPaste1: TEditPaste;
EditSelectAll1: TEditSelectAll;
EditUndo1: TEditUndo;
EditDelete1: TEditDelete;
RichEditBold1: TRichEditBold;
RichEditItalic1: TRichEditItalic;
RichEditUnderline1: TRichEditUnderline;
RichEditStrikeOut1: TRichEditStrikeOut;
RichEditBullets1: TRichEditBullets;
RichEditAlignLeft1: TRichEditAlignLeft;
RichEditAlignRight1: TRichEditAlignRight;
RichEditAlignCenter1: TRichEditAlignCenter;
WindowClose1: TWindowClose;
WindowCascade1: TWindowCascade;
WindowTileHorizontal1: TWindowTileHorizontal;
WindowTileVertical1: TWindowTileVertical;
WindowMinimizeAll1: TWindowMinimizeAll;
WindowArrange1: TWindowArrange;
FileOpen1: TFileOpen;
FileSaveAs1: TFileSaveAs;
FilePrintSetup1: TFilePrintSetup;
FileExit1: TFileExit;
SearchFind1: TSearchFind;
SearchFindNext1: TSearchFindNext;
SearchReplace1: TSearchReplace;
SearchFindFirst1: TSearchFindFirst;
FileNew1: TAction;
FileSave1: TAction;
FilePrintDlg1: TAction;
HelpAbout1: TAction;
Open1: TMenuItem;
SaveAs1: TMenuItem;
PrintSetup1: TMenuItem;
Exit1: TMenuItem;
New1: TMenuItem;
Save1: TMenuItem;
Print1: TMenuItem;
Cut1: TMenuItem;
Copy1: TMenuItem;
Delete1: TMenuItem;
SelectAll1: TMenuItem;
Undo1: TMenuItem;
Delete2: TMenuItem;
Bold1: TMenuItem;
Italic1: TMenuItem;
Underline1: TMenuItem;
Strikeout1: TMenuItem;
Bullets1: TMenuItem;
AlignLeft1: TMenuItem;
AlignRight1: TMenuItem;
Center1: TMenuItem;
Find1: TMenuItem;
FindNext1: TMenuItem;
Replace1: TMenuItem;
FindFirst1: TMenuItem;
Close1: TMenuItem;
Cascade1: TMenuItem;
ileHorizontally1: TMenuItem;
ileVertically1: TMenuItem;
MinimizeAll1: TMenuItem;
Arrange1: TMenuItem;
Help2: TMenuItem;
About1: TMenuItem;
ControlBar1: TControlBar;
ToolBar1: TToolBar;
ToolBar2: TToolBar;
ToolBar3: TToolBar;
ToolBar4: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
ToolButton14: TToolButton;
ToolButton15: TToolButton;
ToolButton16: TToolButton;
ToolButton17: TToolButton;
ToolButton18: TToolButton;
ToolButton19: TToolButton;
ToolButton20: TToolButton;
ToolButton21: TToolButton;
ToolButton22: TToolButton;
ToolButton23: TToolButton;
ToolButton24: TToolButton;
ToolButton25: TToolButton;
ToolButton26: TToolButton;
StatusBar1: TStatusBar;
procedure FormCreate(Sender: TObject);
procedure ApplicationEvents1Hint(Sender: TObject);
procedure FileNew1Execute(Sender: TObject);
procedure FileOpen1Accept(Sender: TObject);
procedure FileSave1Execute(Sender: TObject);
procedure FileSave1Update(Sender: TObject);
procedure FileSaveAs1Accept(Sender: TObject);
procedure FilePrintDlg1Accept(Sender: TObject);
procedure HelpAbout1Execute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure UpdateStatusBar;
function QueryChildByFileName(AFileName:string):Integer;
procedure OpenFile(AFileName:string);
end;
var
frmMain: TfrmMain;
implementation
uses untChild, UntAbout;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
FileSaveAs1.Dialog.InitialDir:=ExtractFilePath(Application.ExeName)+'Files\';
FileOpen1.Dialog.InitialDir:=ExtractFilePath(Application.ExeName)+'Files\';
end;
procedure TfrmMain.ApplicationEvents1Hint(Sender: TObject);
begin
StatusBar1.Panels[0].Text:=GetLongHint(Application.Hint);
end;
procedure TfrmMain.UpdateStatusBar;
begin
if ActiveMDIChild<>nil then begin
StatusBar1.Panels[1].Text:=IntToStr((ActiveMDIChild as TfrmChild).RichEdit1.CaretPos.Y+1)+':'+IntToStr((ActiveMDIChild as TfrmChild).RichEdit1.Caretpos.X+1);
if(ActiveMDIChild as TfrmChild).IsModified then
StatusBar1.Panels[2].Text:='Modified.'
else
StatusBar1.Panels[2].Text:='Not Modified.';
end;
end;
procedure TfrmMain.FileNew1Execute(Sender: TObject);
begin
with TfrmChild.Create(Self) do;
Caption:='未命名';
end;
function TfrmMain.QueryChildByFileName(AFileName:string):Integer;
var
i:Integer;
begin
for i:=0 to MDIChildCount-1 do
with MDIChildren[i] as TfrmChild do begin
if not IsNamed then
continue;
if FileName=AFileName then begin
Result:=i;
Exit;
end;
end;
Result:=-1;
end;
procedure TfrmMain.OpenFile(AFileName:string);
var
AChild:Integer;
begin
AChild:=QueryChildByFileName(AFileName);
if AChild=-1 then begin
frmChild:=TfrmChild.Create(Self);
frmChild.LoadFromFile(AFileName);
UpdateStatusBar();
end
else begin
MDIChildren[AChild].BringToFront();
UpdateStatusBar();
end;
end;
procedure TfrmMain.FileOpen1Accept(Sender: TObject);
begin
OpenFile(FileOpen1.Dialog.FileName);
end;
procedure TfrmMain.FileSave1Execute(Sender: TObject);
begin
if ActiveMDIChild=nil then
Exit;
with ActiveMDIChild as TfrmChild do begin
if not IsNamed then //若文件从未保存，执行另存命令
FileSaveAs1.Execute
else if IsModified then
SaveToFile(FileName);
end;
end;
procedure TfrmMain.FileSave1Update(Sender: TObject);
begin
if ActiveMDIChild<>nil then
with ActiveMDIChild as TfrmChild do begin
if IsModified then
FileSave1.Enabled:=True
else
FileSave1.Enabled:=False;
end;
end;
procedure TfrmMain.FileSaveAs1Accept(Sender: TObject);
begin
if ActiveMDIChild=nil then
Exit;
with ActiveMDIChild as TfrmChild do begin
SaveToFile(FileSaveAs1.Dialog.FileName);
IsModified:=False;
end;
end;
procedure TfrmMain.FilePrintDlg1Accept(Sender: TObject);
begin
frmChild.RichEdit1.Print(frmChild.FileName);
end;
procedure TfrmMain.HelpAbout1Execute(Sender: TObject);
begin
frmAbout:=TfrmAbout.Create(Self);
frmAbout.ShowModal;
frmAbout.Free;
end;
end.
[解决办法]
216行: SaveToFile(FileName);
236行: SaveToFile(FileSaveAs1.Dialog.FileName);
是什么东西SaveToFile ？ 比如是Memo1.Lines.SaveToFile(FileName);
或者你的SaveToFile自己定义的方法，但在代码中又没看到,自己检查检查
[解决办法]
根据你的情况大致的看了一下, SaveToFile改成SaveFile试试
