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

procedure TGeneral.N3Click(Sender: TObject);

begin

Close;

end;

procedure TGeneral.SpeedButton1Click(Sender: TObject);

var

i,j:Integer;

Sum,Sum2,a: Real;

begin

Panel1.Visible:=true;

label1.Visible:=true;

label2.Visible:=true;

label4.Visible:=true;

label5.Visible:=true;

label7.Visible:=true;

Sg4.Visible:=true;

edit2.Visible:=true;

edit3.Visible:=true;

edit4.Visible:=true;

//edit5.Visible:=true;

{Выясним необходимое число ресурсов}

for i:=1 to sg1.RowCount-1 do

Begin

a:=StrToInt(sg1.Cells[2,i])/StrToInt(edit1.text);

sg1.Cells[3,i]:=FloatToStr(a);

{Выяснимнеобходимоечислоресурсов}

Sum2:=Sum2+StrToFloat(sg1.Cells[4,i]);

Edit3.Text:=FloatToStr(Sum2);

{Всегонеобходимыхресурсов}