[Svay10]

Пишет Project raised exception class ElistError with message 'List index out of nounds(-1)'. Process stopped. Use Step or Run to continue.

Сам проэкт во вложение.
Вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls, Grids, XPMan; type   TForm1 = class(TForm)     Button1: TButton;     tmr1: TTimer;     strngrd1: TStringGrid;     lbl1: TLabel;     lbl2: TLabel;     lbl3: TLabel;     lbl4: TLabel;     edt1: TEdit;     lbl5: TLabel;     {xpmnfst1: TXPManifest;}     lbl6: TLabel;     lbl7: TLabel;     lbl8: TLabel;     procedure Button1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure tmr1Timer(Sender: TObject);     procedure WriteGrid;     procedure strngrd1DrawCell(Sender: TObject; ACol, ARow: Integer;       Rect: TRect; State: TGridDrawState);     procedure WaitingTime;   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   proc: array [1..5] of array [0..2] of Integer;    // массив с информацией о процессах   number_proc:Integer;     // помер текущего исполняемого процесса   kvant: Integer = 0;      // текущий квант времени   i:Integer = 1;           // вспомогательная переменная для ограничения количества квантов времени для текущего исполняемого процесса implementation {$R *.dfm} procedure SortProc;       //  сортировка по времени поступления var i,j: Integer;     x0,x1,x2: Integer; begin   for I := 1 to 4 do     for j := 1 to 4 do       if proc[j,1] > proc[j+1,1] then         begin           x0:= proc[j+1,0];           x1:= proc[j+1,1];           x2:= proc[j+1,2];           proc[j+1,0] := proc[j,0];           proc[j+1,1] := proc[j,1];           proc[j+1,2] := proc[j,2];           proc[j,0] := x0;           proc[j,1] := x1;           proc[j,2] := x2;         end; end; procedure TForm1.Button1Click(Sender: TObject);  // запуск begin   if tmr1.Enabled then   begin     tmr1.Enabled:=false;     Button1.Caption:='Запуск';   end else   begin     FormCreate(Sender);    { for k:=1 to strngrd1.RowCount-1 do     for j:=1 to strngrd1.ColCount-1 do       strngrd1.Cells[j, k]:='';}     strngrd1.ColCount:=1;     number_proc:=1;     kvant:=0;     i:=1;     SortProc;     tmr1.Interval:=StrToInt(edt1.Text);     tmr1.Enabled:=True;     Button1.Caption:='Стоп';   end; end; procedure TForm1.FormCreate(Sender: TObject);     //заполнение массива информацией о процессах var i:integer; begin    for i:=1 to 5 do    begin    strngrd1.Cells[0, i]:=IntToStr(i);    proc[i,0]:= i;    end;    proc[1,1]:= 3;    proc[1,2]:= 10;    proc[2,1]:= 6;    proc[2,2]:= 4;    proc[3,1]:= 0;    proc[3,2]:= 5;    proc[4,1]:= 2;    proc[4,2]:= 1;    proc[5,1]:= 4;    proc[5,2]:= 3; end; procedure TForm1.WaitingTime;       // расчет среднего времени ожидания и выполнения var  waiting_time, turnaroud_time:Real; i,j:Integer; begin  waiting_time:=0;  turnaroud_time:=0;  for i:=1 to strngrd1.RowCount-1 do   for j:=1 to strngrd1.ColCount-1 do   begin     if strngrd1.Cells[j,i]='Г' then  waiting_time:=waiting_time+1;     if strngrd1.Cells[j,i]<>'-' then  turnaroud_time:=turnaroud_time+1;   end;   lbl3.Caption:='Среднее время ожидания: '+ FloatToStr(waiting_time/5);   lbl4.Caption:='Среднее полное время выполнени: '+ FloatToStr(turnaroud_time/5); end; procedure TForm1.WriteGrid;         //отрисовка таблицы var i:Integer; begin   lbl1.Caption:='Текущий квант времени: '+inttostr(kvant);   lbl2.Caption:='Исполняемый процесс: '+inttostr(proc[number_proc,0]);   strngrd1.Cells[kvant,0]:=IntToStr(kvant);   strngrd1.ColCount:=kvant+1;   strngrd1.Cells[kvant,proc[number_proc,0]]:='В';   for i:=1 to 5 do   begin     if i<>number_proc then     begin       if ((proc[i,2]=0) or (proc[i,1]>kvant)) then  strngrd1.Cells[kvant,proc[i,0]]:='-'       else strngrd1.Cells[kvant,proc[i,0]]:='Г';     end;     end; end; procedure TForm1.tmr1Timer(Sender: TObject);   // реализация алгоритма RR var j,k:integer; flag:Boolean; begin    k:=0;    Inc(kvant);    repeat      if ((proc[number_proc,1]<=kvant) and (proc[number_proc,2]<>0) and (i<=4)) then      begin      Dec(proc[number_proc,2]);      Inc(i);      flag:=True;      WriteGrid;      WaitingTime;      end      else      begin      Inc(number_proc);      if number_proc>5 then number_proc:=1;      flag:=False;      i:=1;      end;      for j:=1 to 5 do      if proc[j,2]<>0 then Inc(k);      if k=0 then      begin       tmr1.Enabled:=False;       Button1.Caption:='Запуск';       Exit;      end;    until (flag); end; procedure TForm1.strngrd1DrawCell(Sender: TObject; ACol, ARow: Integer;    // раскраска  таблицы stringgrid   Rect: TRect; State: TGridDrawState); begin if strngrd1.Cells[ACol, ARow] = 'В' then strngrd1.Canvas.Brush.Color:=255; if strngrd1.Cells[ACol, ARow] = 'Г' then strngrd1.Canvas.Brush.Color:=clMenuHighlight; strngrd1.Canvas.Font.Color := clBlack;   strngrd1.Canvas.FillRect(Rect);   strngrd1.Canvas.TextOut(Rect.Left, Rect.Top, strngrd1.Cells[ACol, ARow]); end; end.

MAD: учимся пользоваться тегами!!!