Курсовая работа: Оптимизация сетевого графика по времени

write(f,Rab_J);

write(f,OB_Rabot);

End;

For I:=1 to Sg1.RowCount-1 do

KolRes:=(Sg1.Cells[4,i])

{$I+}

CloseFile(f);

end;

procedure TGeneral.N5Click(Sender: TObject);

begin

if OpenDialog1.Execute then

end;

procedure TGeneral.SpeedButton6Click(Sender: TObject);

begin

Edit1.Text:='5';

sg1.RowCount:=12;

sg1.Cells[0,1]:=INttoStr(0);

sg1.Cells[1,1]:=INttoStr(1);

sg1.Cells[2,1]:=INttoStr(25);

sg1.Cells[4,1]:=INttoStr(5);

sg1.Cells[0,2]:=INttoStr(0);

sg1.Cells[1,2]:=INttoStr(2);

sg1.Cells[2,2]:=INttoStr(30);

sg1.Cells[4,2]:=INttoStr(6);

sg1.Cells[0,3]:=INttoStr(0);

sg1.Cells[1,3]:=INttoStr(3);

sg1.Cells[2,3]:=INttoStr(20);

sg1.Cells[4,3]:=INttoStr(4);

sg1.Cells[0,4]:=INttoStr(1);