РЕАЛИЗАЦИЯ ДИСКРЕЦИОННОЙ МОДЕЛИ ПОЛИТИКИ БЕЗОПАСНОСТИ

народ, подскажите пожалуйста простейшую модель матрицы прав доступа, в которой будут пользователи объект и действия над объектами, просто даже не знаю с чего начать, заранее Спасибо
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Edit2: TEdit; procedure Edit1Change(Sender: TObject); procedure Button1Click(Sender: TObject);private { Private declarations } public { Public declarations } end; var Form1: TForm; implementationprocedure TForm1.Button1Click(Sender: TObject); type ORights=set of (RRead,RWrite,RPer); const AllRights: ORights=[RRead,RWrite,RPer]; var Rights: array [1..6,1..9] of ORights; user: array [1..9] of string[20]; i,j,vibor: byte; Komanda,s: string[20]; Right: ORights; begin user[1]:='Ivan'; user[2]:='Sergey'; user[3]:='Boris'; user[4]:='Vasya'; user[5]:='BatMan'; user[6]:='Flash'; user[7]:='Babaika'; user[8]:='Bober'; user[9]:='YObana'; randomize; if edit1.Text='выйти' then form1.close; for i := 1 to 9 do if edit1.Text=user[i] then s:='Объект'+inttostr(i)+':'; vibor:=i; for i := 1 to 6 do begin Rights[i,1]:=AllRights; for j := 2 to 9 do begin rights[i,j]:=[]; if random(2)=1 then Rights[i,j]:=Rights[i,j]+[RRead]; if random(2)=1 then Rights[i,j]:=Rights[i,j]+[RWrite]; if random(2)=1 then Rights[i,j]:=Rights[i,j]+[RPer]; end; end; if rights[i,vibor]=[] then edit2.Text:=s+'Запрет любого доступа' else if rights[i,vibor]=allrights then edit2.Text:=s+'Полные права' else if rread in rights[i,vibor] then edit2.Text:=s+'Чтение онли'; if rwrite in rights[i,vibor] then edit2.Text:=s+'чтение и запись'; if rper in rights[i,vibor] then edit2.Text:=s+'Ты всемогущь ёмана';end;procedure TForm1.Edit1Change(Sender: TObject); beginend;{$R *.dfm} end.
вот код, запускается нормально, но при вводе данных выдаёт такую вот ошибку"Access violation at address 00454 in module Project1.exe. Read of address 07060669Ошибку нашёл и исправил. Программа работает. Осталось немного откорректировать
2 ответа

оххх!! как раз то, что мне нужно!! Скиньте пожалуйста исходники, преподаватель задал мне эту программу на зачёт! если я её сдам, я получу зачёт, если не покажу её, он не допустит меня к экзаменам!!


люди а у кого есть исходники этой программы. скиньте пожалуйста на почту [removed_email]