跟踪又跟踪不到,怎办啊?????
35 个解决方案
#1
把代码贴出来
#2
配置？
#3
unit BACKUP;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls, Buttons, FileCtrl;//就这里!!!
delphi 6才这样的,delphi 5 不会,现在有何呱呱叫,怎办啊!!!!
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls, Buttons, FileCtrl;//就这里!!!
delphi 6才这样的,delphi 5 不会,现在有何呱呱叫,怎办啊!!!!
#4
FileCtrl这个单元哪来的？里面是什么？我从来没见过！
#5
里面用到copyfile、DELETEfile(pchar(MAIN.INSpath+searchrec.name))就会有filectrl单元的。急呀！用户呱呱叫呀，我的妈！！！！
#6
我的妈！用户又打电话来骂呀！！！！！！！！！！
#7
我没有加FileCtrl，copyfile、DELETEfile也可以用呀
#8
DELETEfile在 SysUtils 单元里的！
#9
奇怪呀！我把所有调用的过程去掉，存盘后还是出现filectrl单元！！！
代码就是这样：
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls, Buttons, FileCtrl;//, FileCtrl;
type
TBK_FOR = class(TForm)
BK_Pan1: TPanel;
BK_Bit1: TBitBtn;
BK_Bit2: TBitBtn;
BK_Edi1: TEdit;
LAB1: TLabel;
BK_Dri1: TDriveComboBox;
BK_Dir1: TDirectoryListBox;
BK_Fil1: TFileListBox;
Label1: TLabel;
PB: TProgressBar;
BitBtn1: TBitBtn;
procedure BK_Dir1Click(Sender: TObject);
procedure BK_Bit1Click(Sender: TObject);
procedure BK_Edi1Change(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure BK_Dir1Change(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
P,K:INTEGER;
{ Public declarations }
end;
代码就是这样：
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls, Buttons, FileCtrl;//, FileCtrl;
type
TBK_FOR = class(TForm)
BK_Pan1: TPanel;
BK_Bit1: TBitBtn;
BK_Bit2: TBitBtn;
BK_Edi1: TEdit;
LAB1: TLabel;
BK_Dri1: TDriveComboBox;
BK_Dir1: TDirectoryListBox;
BK_Fil1: TFileListBox;
Label1: TLabel;
PB: TProgressBar;
BitBtn1: TBitBtn;
procedure BK_Dir1Click(Sender: TObject);
procedure BK_Bit1Click(Sender: TObject);
procedure BK_Edi1Change(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure BK_Dir1Change(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
P,K:INTEGER;
{ Public declarations }
end;
#10
你安装过第三方的元件吧！去掉第三方元件的那个包，或者干脆删掉那个单元文件，重新启动Delphi,出错以后修改
#11
完全没有第三方控件。
#12
这个delphi6实在让我哭!哭!哭！我要告borland!!!!!!!!!!!!!!!!!!!!
#13
删掉那个单元文件，重新启动Delphi,出错以后修改
#14
可惜我的delphi5是D版，要不真要告它boland!!!哈哈哈！
#15
您删除单元filectrl后，肯定要存盘吧？一存盘就自动加上了。
#16
删掉那个实际的单元文件，不是在Uses中！！！！！~！
#17
重新安装，也是一个很快的办法！哭！就知道哭！哭有什么用！
#18
对了！重大发现：在win98第二版编译后在第二版运行没事，但在win98第一版就出事了。
但我是用BDE+paradox数据库呀。
但我是用BDE+paradox数据库呀。
#19
我的delphi6安装5次了，我死定了。
#20
你把问题说明白？怎么有和数据库发生关系了
#21
蜗牛哥，小妹不哭了。嘻嘻！但filectrl是系统带的，不是我写的。
#22
我从来没有见过你的那个什么东东！
#23
我找到了：
unit FileCtrl platform;
关于platform：Delphi的说明
he names of variables, constants, types, fields, properties, procedures, functions, programs, units, libraries, and packages are called identifiers. (Numeric constants like 26057 are not identifiers.) Identifiers must be declared before you can use them; the only exceptions are a few predefined types, routines, and constants that the compiler understands automatically, the variable Result when it occurs inside a function block, and the variable Self when it occurs inside a method implementation.
A declaration defines an identifier and, where appropriate, allocates memory for it. For example,
var Size: Extended;
declares a variable called Size that holds an Extended (real) value, while
function DoThis(X, Y: string): Integer;
declares a function called DoThis that takes two strings as arguments and returns an integer. Each declaration ends with a semicolon. When you declare several variables, constants, types, or labels at the same time, you need only write the appropriate reserved word once:
var
Size: Extended;
Quantity: Integer;
Description: string;
The syntax and placement of a declaration depend on the kind of identifier you are defining. In general, declarations can occur only at the beginning of a block or at the beginning of the interface or implementation section of a unit (after the uses clause). Specific conventions for declaring variables, constants, types, functions, and so forth are explained in the documentation for those topics.
The 揾int?directives platform, deprecated, and library may be appended to any declaration. In the case of a procedure or function declaration, the hint directive should be separated from the rest of the declaration with a semicolon. Examples:
procedure SomeOldRoutine; stdcall; deprecated;
var VersionNumber: Real library;
type AppError = class(Exception)
...
end platform;
When source code is compiled in the {$HINTS ON} {$WARNINGS ON} state, each reference to an identifier declared with one of these directives generates an appropriate hint or warning. Use platform to mark items that are specific to a particular operating environment (such as Windows or Linux), deprecated to indicate that an item is obsolete or supported only for backward compatibility, and library to flag dependencies on a particular library or component framework (such as VCL or CLX).
unit FileCtrl platform;
关于platform：Delphi的说明
he names of variables, constants, types, fields, properties, procedures, functions, programs, units, libraries, and packages are called identifiers. (Numeric constants like 26057 are not identifiers.) Identifiers must be declared before you can use them; the only exceptions are a few predefined types, routines, and constants that the compiler understands automatically, the variable Result when it occurs inside a function block, and the variable Self when it occurs inside a method implementation.
A declaration defines an identifier and, where appropriate, allocates memory for it. For example,
var Size: Extended;
declares a variable called Size that holds an Extended (real) value, while
function DoThis(X, Y: string): Integer;
declares a function called DoThis that takes two strings as arguments and returns an integer. Each declaration ends with a semicolon. When you declare several variables, constants, types, or labels at the same time, you need only write the appropriate reserved word once:
var
Size: Extended;
Quantity: Integer;
Description: string;
The syntax and placement of a declaration depend on the kind of identifier you are defining. In general, declarations can occur only at the beginning of a block or at the beginning of the interface or implementation section of a unit (after the uses clause). Specific conventions for declaring variables, constants, types, functions, and so forth are explained in the documentation for those topics.
The 揾int?directives platform, deprecated, and library may be appended to any declaration. In the case of a procedure or function declaration, the hint directive should be separated from the rest of the declaration with a semicolon. Examples:
procedure SomeOldRoutine; stdcall; deprecated;
var VersionNumber: Real library;
type AppError = class(Exception)
...
end platform;
When source code is compiled in the {$HINTS ON} {$WARNINGS ON} state, each reference to an identifier declared with one of these directives generates an appropriate hint or warning. Use platform to mark items that are specific to a particular operating environment (such as Windows or Linux), deprecated to indicate that an item is obsolete or supported only for backward compatibility, and library to flag dependencies on a particular library or component framework (such as VCL or CLX).
#24
看不懂！
#25
FileCtrl,我加在了我的程序里，没有任何问题！
#26
是win98第一版吗？？？
#27
这个提示是说你的filectrl文件包含和平台（windows or linux）相关的代码，这样
你就不能在另一个平台下编译
你就不能在另一个平台下编译
#28
我我一直在win98下编的，也没定义其它什么平台。。。
#29
用户又打电话来骂呀！！！！！！！！！！！我哭！哭！哭哭哭哭！
#30
谁来揪我！！！！！！！！！！！！！！！！！！！！！！！
#31
把重要的资料备分一下，重新安装WINDOWS在装D5
#32
在Borland没有发表Delphi6的补钉，或没有大量的应用转向Delphi6之前，如果你没有这个实力，请用回Delphi5吧。
-------对于新的产品或技术，总需要您练习一段时间后，才能在你的项目中采用。（对于任何新东西，这句话都会对你有帮助的。)
-------对于新的产品或技术，总需要您练习一段时间后，才能在你的项目中采用。（对于任何新东西，这句话都会对你有帮助的。)
#33
没做备份。
主要是太麻痹了，d1-d5都是很好移植的。
主要是太麻痹了，d1-d5都是很好移植的。
#34
不要急，听我说
那个Warning, ‘unit 'filectrl' is specific to a ......'
和主窗口退出时的提示没有任何关系。
因为Warning只是告诉你，因为你的程序中(或者用到的控件)调用了的filectrl单元，而该单元只在Windows平台下被支持，当你跨平台时就有问题而已。 所以这个警告可以不必理会。至于access violation at address 0049601e , 这种错误多半是因为你访问了一个已经被释放了的对象而造成的。还是好好检查一下程序中的所有Form的FormClose,FormDestroy事件的代码吧。
不要急，总会解决的。
#35
解决了！写一个windows容错好了。
#1
把代码贴出来
#2
配置？
#3
unit BACKUP;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls, Buttons, FileCtrl;//就这里!!!
delphi 6才这样的,delphi 5 不会,现在有何呱呱叫,怎办啊!!!!
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls, Buttons, FileCtrl;//就这里!!!
delphi 6才这样的,delphi 5 不会,现在有何呱呱叫,怎办啊!!!!
#4
FileCtrl这个单元哪来的？里面是什么？我从来没见过！
#5
里面用到copyfile、DELETEfile(pchar(MAIN.INSpath+searchrec.name))就会有filectrl单元的。急呀！用户呱呱叫呀，我的妈！！！！
#6
我的妈！用户又打电话来骂呀！！！！！！！！！！
#7
我没有加FileCtrl，copyfile、DELETEfile也可以用呀
#8
DELETEfile在 SysUtils 单元里的！
#9
奇怪呀！我把所有调用的过程去掉，存盘后还是出现filectrl单元！！！
代码就是这样：
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls, Buttons, FileCtrl;//, FileCtrl;
type
TBK_FOR = class(TForm)
BK_Pan1: TPanel;
BK_Bit1: TBitBtn;
BK_Bit2: TBitBtn;
BK_Edi1: TEdit;
LAB1: TLabel;
BK_Dri1: TDriveComboBox;
BK_Dir1: TDirectoryListBox;
BK_Fil1: TFileListBox;
Label1: TLabel;
PB: TProgressBar;
BitBtn1: TBitBtn;
procedure BK_Dir1Click(Sender: TObject);
procedure BK_Bit1Click(Sender: TObject);
procedure BK_Edi1Change(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure BK_Dir1Change(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
P,K:INTEGER;
{ Public declarations }
end;
代码就是这样：
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls, Buttons, FileCtrl;//, FileCtrl;
type
TBK_FOR = class(TForm)
BK_Pan1: TPanel;
BK_Bit1: TBitBtn;
BK_Bit2: TBitBtn;
BK_Edi1: TEdit;
LAB1: TLabel;
BK_Dri1: TDriveComboBox;
BK_Dir1: TDirectoryListBox;
BK_Fil1: TFileListBox;
Label1: TLabel;
PB: TProgressBar;
BitBtn1: TBitBtn;
procedure BK_Dir1Click(Sender: TObject);
procedure BK_Bit1Click(Sender: TObject);
procedure BK_Edi1Change(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure BK_Dir1Change(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
P,K:INTEGER;
{ Public declarations }
end;
#10
你安装过第三方的元件吧！去掉第三方元件的那个包，或者干脆删掉那个单元文件，重新启动Delphi,出错以后修改
#11
完全没有第三方控件。
#12
这个delphi6实在让我哭!哭!哭！我要告borland!!!!!!!!!!!!!!!!!!!!
#13
删掉那个单元文件，重新启动Delphi,出错以后修改
#14
可惜我的delphi5是D版，要不真要告它boland!!!哈哈哈！
#15
您删除单元filectrl后，肯定要存盘吧？一存盘就自动加上了。
#16
删掉那个实际的单元文件，不是在Uses中！！！！！~！
#17
重新安装，也是一个很快的办法！哭！就知道哭！哭有什么用！
#18
对了！重大发现：在win98第二版编译后在第二版运行没事，但在win98第一版就出事了。
但我是用BDE+paradox数据库呀。
但我是用BDE+paradox数据库呀。
#19
我的delphi6安装5次了，我死定了。
#20
你把问题说明白？怎么有和数据库发生关系了
#21
蜗牛哥，小妹不哭了。嘻嘻！但filectrl是系统带的，不是我写的。
#22
我从来没有见过你的那个什么东东！
#23
我找到了：
unit FileCtrl platform;
关于platform：Delphi的说明
he names of variables, constants, types, fields, properties, procedures, functions, programs, units, libraries, and packages are called identifiers. (Numeric constants like 26057 are not identifiers.) Identifiers must be declared before you can use them; the only exceptions are a few predefined types, routines, and constants that the compiler understands automatically, the variable Result when it occurs inside a function block, and the variable Self when it occurs inside a method implementation.
A declaration defines an identifier and, where appropriate, allocates memory for it. For example,
var Size: Extended;
declares a variable called Size that holds an Extended (real) value, while
function DoThis(X, Y: string): Integer;
declares a function called DoThis that takes two strings as arguments and returns an integer. Each declaration ends with a semicolon. When you declare several variables, constants, types, or labels at the same time, you need only write the appropriate reserved word once:
var
Size: Extended;
Quantity: Integer;
Description: string;
The syntax and placement of a declaration depend on the kind of identifier you are defining. In general, declarations can occur only at the beginning of a block or at the beginning of the interface or implementation section of a unit (after the uses clause). Specific conventions for declaring variables, constants, types, functions, and so forth are explained in the documentation for those topics.
The 揾int?directives platform, deprecated, and library may be appended to any declaration. In the case of a procedure or function declaration, the hint directive should be separated from the rest of the declaration with a semicolon. Examples:
procedure SomeOldRoutine; stdcall; deprecated;
var VersionNumber: Real library;
type AppError = class(Exception)
...
end platform;
When source code is compiled in the {$HINTS ON} {$WARNINGS ON} state, each reference to an identifier declared with one of these directives generates an appropriate hint or warning. Use platform to mark items that are specific to a particular operating environment (such as Windows or Linux), deprecated to indicate that an item is obsolete or supported only for backward compatibility, and library to flag dependencies on a particular library or component framework (such as VCL or CLX).
unit FileCtrl platform;
关于platform：Delphi的说明
he names of variables, constants, types, fields, properties, procedures, functions, programs, units, libraries, and packages are called identifiers. (Numeric constants like 26057 are not identifiers.) Identifiers must be declared before you can use them; the only exceptions are a few predefined types, routines, and constants that the compiler understands automatically, the variable Result when it occurs inside a function block, and the variable Self when it occurs inside a method implementation.
A declaration defines an identifier and, where appropriate, allocates memory for it. For example,
var Size: Extended;
declares a variable called Size that holds an Extended (real) value, while
function DoThis(X, Y: string): Integer;
declares a function called DoThis that takes two strings as arguments and returns an integer. Each declaration ends with a semicolon. When you declare several variables, constants, types, or labels at the same time, you need only write the appropriate reserved word once:
var
Size: Extended;
Quantity: Integer;
Description: string;
The syntax and placement of a declaration depend on the kind of identifier you are defining. In general, declarations can occur only at the beginning of a block or at the beginning of the interface or implementation section of a unit (after the uses clause). Specific conventions for declaring variables, constants, types, functions, and so forth are explained in the documentation for those topics.
The 揾int?directives platform, deprecated, and library may be appended to any declaration. In the case of a procedure or function declaration, the hint directive should be separated from the rest of the declaration with a semicolon. Examples:
procedure SomeOldRoutine; stdcall; deprecated;
var VersionNumber: Real library;
type AppError = class(Exception)
...
end platform;
When source code is compiled in the {$HINTS ON} {$WARNINGS ON} state, each reference to an identifier declared with one of these directives generates an appropriate hint or warning. Use platform to mark items that are specific to a particular operating environment (such as Windows or Linux), deprecated to indicate that an item is obsolete or supported only for backward compatibility, and library to flag dependencies on a particular library or component framework (such as VCL or CLX).
#24
看不懂！
#25
FileCtrl,我加在了我的程序里，没有任何问题！
#26
是win98第一版吗？？？
#27
这个提示是说你的filectrl文件包含和平台（windows or linux）相关的代码，这样
你就不能在另一个平台下编译
你就不能在另一个平台下编译
#28
我我一直在win98下编的，也没定义其它什么平台。。。
#29
用户又打电话来骂呀！！！！！！！！！！！我哭！哭！哭哭哭哭！
#30
谁来揪我！！！！！！！！！！！！！！！！！！！！！！！
#31
把重要的资料备分一下，重新安装WINDOWS在装D5
#32
在Borland没有发表Delphi6的补钉，或没有大量的应用转向Delphi6之前，如果你没有这个实力，请用回Delphi5吧。
-------对于新的产品或技术，总需要您练习一段时间后，才能在你的项目中采用。（对于任何新东西，这句话都会对你有帮助的。)
-------对于新的产品或技术，总需要您练习一段时间后，才能在你的项目中采用。（对于任何新东西，这句话都会对你有帮助的。)
#33
没做备份。
主要是太麻痹了，d1-d5都是很好移植的。
主要是太麻痹了，d1-d5都是很好移植的。
#34
不要急，听我说
那个Warning, ‘unit 'filectrl' is specific to a ......'
和主窗口退出时的提示没有任何关系。
因为Warning只是告诉你，因为你的程序中(或者用到的控件)调用了的filectrl单元，而该单元只在Windows平台下被支持，当你跨平台时就有问题而已。 所以这个警告可以不必理会。至于access violation at address 0049601e , 这种错误多半是因为你访问了一个已经被释放了的对象而造成的。还是好好检查一下程序中的所有Form的FormClose,FormDestroy事件的代码吧。
不要急，总会解决的。
#35
解决了！写一个windows容错好了。