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

Proizvod:=edit1.text;

Str:=IntToStr(sg1.RowCount);

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

Begin

Rab_I :=(Sg1.Cells[0,i]);

Rab_J :=(Sg1.Cells[1,i]);

OB_Rabot:=(Sg1.Cells[2,i]);

write(f,Rab_I);

write(f,Rab_J);

write(f,OB_Rabot);

End;

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

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

end;

CloseFile(f);

end;

procedure TGeneral.SpeedButton2Click(Sender: TObject);

begin

General.N7.Click;

if OpenDialog1.Execute then

{$I-}

AssignFile(F,OpenDialog1.FileName); Reset(F);

Proizvod:=edit1.text;

Str:=IntToStr(sg1.RowCount);

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

Begin

Rab_I :=(Sg1.Cells[0,i]);

Rab_J :=(Sg1.Cells[1,i]);

OB_Rabot:=(Sg1.Cells[2,i]);