Я сделал очень простой код на Паскале, который вызывает эту ошибку:
Проект BugFixing.exe поднял класс исключения EAccessViolation с сообщением «Нарушение прав доступа по адресу 0040F1EE в модуле BugFixing.exe». Запись адреса 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.
Если бы кто-нибудь мог объяснить мне, почему это создает нарушение доступа, это было бы признательно. Заранее спасибо. :)
