var
regFile: regNo;
readzcxx : file of regno; // 读取注册信息
iCS: Byte;
begin
Result := True;
AssignFile(readzcxx, 'avx.dll');
if FileExists('avx.dll') then
begin
Reset(readzcxx);
Read(readzcxx,regFile);
Seek(readzcxx, 1);
iCS := regFile.cs;
if iCS < iDate then
begin
Result := False;
end;
end;
Rewrite(readzcxx);
regFile.cs := iDate;
Write(readzcxx,regFile);
CloseFile(readzcxx);
end;为何无法编译,抱错信息(undeclare identfier:regNo)???
regFile: regNo;
readzcxx : file of regno; // 读取注册信息
iCS: Byte;
begin
Result := True;
AssignFile(readzcxx, 'avx.dll');
if FileExists('avx.dll') then
begin
Reset(readzcxx);
Read(readzcxx,regFile);
Seek(readzcxx, 1);
iCS := regFile.cs;
if iCS < iDate then
begin
Result := False;
end;
end;
Rewrite(readzcxx);
regFile.cs := iDate;
Write(readzcxx,regFile);
CloseFile(readzcxx);
end;为何无法编译,抱错信息(undeclare identfier:regNo)???
解决方案 »
- 给窗体菜单 加上背景效果
- 用CANVAS随着鼠标的移动画出矩形
- 关于Win2K设置目录和文件所有者(SetFileSecurity)的问题!
- dll 导入导出问题,源码全给出来,帮忙解一下
- 如何让DGRID中的某一列上的数据是自己手工添加的,而其它列上数据是从数据库取得的?
- ★★文本替换问题★★
- 还是关于ADO连接ORACLE的问题
- Create 时为什么会出现 Inaccessible value 错误?
- lookup字段总是报错,如何改
- 请问如何实现在资源管理器中的右键弹出菜单中使文件关联自己的程序...
- 请教高手指点迷津,高分回报,关于tfielddef.datatype
- 如何在中间层写返回数组的函数?
regFile: regNo; 這個 regNo 沒有定義
我不知道需要那个单元?REGNO在此是做什么用处的?
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ImgList, Menus, ComCtrls, ToolWin, jpeg, ExtCtrls, iniFiles, FileCtrl, Buttons,
StdCtrls,Registry;
以上是表单已经引用的单元