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

[gblpokoJl]

народ, подскажите пожалуйста простейшую модель матрицы прав доступа, в которой будут пользователи объект и действия над объектами, просто даже не знаю с чего начать, заранее Спасибо

unit Unit1;

interface

uses
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;
implementation

procedure 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);
begin

end;


{$R *.dfm}
end.

вот код, запускается нормально, но при вводе данных выдаёт такую вот ошибку"Access violation at address 00454 in module Project1.exe. Read of address 07060669

Ошибку нашёл и исправил. Программа работает. Осталось немного откорректировать

[Lopatka]

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

[Иван12354]

люди а у кого есть исходники этой программы. скиньте пожалуйста на почту vadyt@yandex.ru