Question

delphi7编译错误：[Error] Unit1.pas(116): Undeclared identifier: 'opendialog1'

我想在formcreate时更改memoname和opendialog1的属性，但是无法编译
部分源码：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons, MmSystem, ToolWin, ComCtrls, XPMan,
ImgList;

type
TForm1 = class(TForm)
Label1: TLabel;
Image1: TImage;
BitBtn1: TBitBtn;
Label2: TLabel;
Label3: TLabel;
ToolBarMain: TToolBar;
ImageListTools: TImageList;
XPManifest1: TXPManifest;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
Panel1: TPanel;
Label4: TLabel;
MemoName: TMemo;
ToolBarEdit: TToolBar;
Shape1: TShape;
OpenDialog1: TOpenDialog;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);

{procedure FormCreate(Sender: TObject); }
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
cl: string;
lastfile,fi:text;
total,ra,flagtot:longint;
flagname:array[1..3000]of boolean;
checkflag:boolean;

implementation

{$R *.dfm}

…………

procedure loadfile;
var
nameoffile:string;
begin
assign(lastfile,'setting.ini');
reset(lastfile);
read(lastfile,nameoffile);
opendialog1.FileName :=nameoffile; //错误行Undeclared identifier: 'opendialog1'
fillchar(flagname,sizeof(flagname),true);
Memoname.lines.loadfromfile(nameoffile); //错误行
total:=memoname.lines.count;
while memoname.lines.strings[total]='' do dec(total);
checkflag := false;
close(lastfile);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
loadfile;
end;
end.

Answer 1

出错的原因：您所定义的loadfile过程不属于类TForm1，而OpenDialog1属于类TForm1，在类以外的过程引用类（这里的容器是TForm1）的控件，必须在控件前指定控件所属的类（这里的容器是TForm1），则：
两种解决办法：
（1）//procedure loadfile ==> procedure TForm1.loadfile
type ...OpenDialog1: TOpenDialog;
procedure BitBtn1Click(Sender: TObject);
// (添加代码) ==>
procedure loadfile;
//OK !~
（2）opendialog1.FileName :=nameoffile; ==> Form1.opendialog1.FileName :=nameoffile
回答完毕，送分！

Answer 2

private
{ Private declarations }
这里加上
Porcedure LoadFile;

-----------------------------------------------------------------------------------------------

procedure loadfile; //这里改成Procedure TForm1.LoadFile;
var
nameoffile:string;
begin
assign(lastfile,'setting.ini');
reset(lastfile);
read(lastfile,nameoffile);
opendialog1.FileName :=nameoffile; //错误行Undeclared identifier: 'opendialog1'
fillchar(flagname,sizeof(flagname),true);
Memoname.lines.loadfromfile(nameoffile); //错误行
total:=memoname.lines.count;
while memoname.lines.strings[total]='' do dec(total);
checkflag := false;
close(lastfile);
end;