【发布时间】:2017-02-06 09:41:33
【问题描述】:
我在 Pascal 中编写了一些非常简单的代码,导致我出现此错误:
BugFixing.exe 项目引发异常类 EAccessViolation,并带有消息“模块“BugFixing.exe”中地址 0040F1EE 的访问冲突。写入地址 00000004'。
该计划由 2 个模块组成: BugFixing.dpr:
program BugFixing;
{$APPTYPE CONSOLE}
uses
SysUtils, uLinearProgrammingMainLogic in 'uLinearProgrammingMainLogic.pas', math;
var
MinOrMax : integer ;
Question : TQuestion ;
begin
try
Randomize ;
MinOrMax := RandomRange(0,2) ;
Question.SetMaximiseQuestion(MinOrMax);
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
还有uLinearProgrammingMainLogic.pas:
unit uLinearProgrammingMainLogic;
interface
uses sysUtils, math ;
type
TQuestion = class
private
MaximiseQuestion : boolean ;
public
procedure SetMaximiseQuestion (MinOrMax : integer) ;
end;
implementation
procedure TQuestion.SetMaximiseQuestion(MinOrMax : integer);
begin
if MinOrMax = 0 then
MaximiseQuestion := true
else
MaximiseQuestion := false ;
end;
end.
如果有人可以向我解释为什么这会造成访问冲突,我们将不胜感激。提前致谢。 :)
【问题讨论】: