TFindOrReplaceOption=(opNothing,opFind,opReplace)这个定义需要在uses中添加什么声明?(100分)

  • 主题发起人 主题发起人 631229
  • 开始时间 开始时间
6

631229

Unregistered / Unconfirmed
GUEST, unregistred user!
我在32 bitDelphi深度历险里下载了一个编辑器代码,其中有
Type:TFindOrReplaceOption=(opNothing,opFind,opReplace);
代码能通过编译和运行,但我在我的程序里用编译器就说
'Undeclared identifier:opNothing'
我想问题可能出在Uses里。这个定义需要在uses中添加什么声明?
 
Type
TFindOrReplaceOption=(opNothing,opFind,opReplace);
这是定义的枚举类型

var
fr :TFindOrReplaceOption;

没有问题的。
 
我的问题是:opNothing,opFind,opReplace这三个东东被认为是'Undeclared identifier'
 
不懂了,自己定义的枚举类型需要 uses 什么???
 
???怎么可能呢?老兄肯定是搞错了!
 
例如在某个unit里有:
unit MyConst;
...
Const
opNothing=1;
opFind=2;
opReplace=3;
或者别的类似声明,你在你的代码里uses MyConst就可以用了
 
那你的
Type
TFindOrReplaceOption=(opNothing,opFind,opReplace);
在哪个单元声明的,你uses这个单元不就是了?
 
这就是我的问题所在啊!我不知道它在哪个单元。
Type
TFindOrReplaceOption=(opNothing,opFind,opReplace);
是我的程序要用的,下载的程序里也有,但使用它的前提是要Uses定义opNothing,opFind,opReplace
的单元,而我不知道它在哪个单元。下载的程序里我看了它的uses涉及到
的各个单元并将它们逐一看了一下,也没有看到有这些定义。
 
在编辑模式下:
用Help
或Ctrl+鼠标左键点TFindOrReplaceOption试试,看能不能进入该模块
 
再不行就Search,再find in files里找找看。
 
我用windows的“开始”-->“查找”-->“文件”-->*.pas找到了硬盘上所有的*.pas文件并
将它们拷到了某个子目录下,再在Ms-dos方式下进入该子目录,打入命令:
for %f in (*.*) do find/c "opNothing" %f>>find.txt
再察看find.txt的内容,结果只有下载回来的程序有"opNothing"这个字符串,其他都没有。
因此我想可能是在某个*.dcu里有定义。但我不知道如何象上述的方法那样一次性的快捷地
查找所有的*.dcu文件里有无"opNothing"这个字符串。
 
多人接受答案了。
 
后退
顶部