Подсистема моделирования работы гибкой производственной ячейки
Курсовой проект - Разное
Другие курсовые по предмету Разное
Click(Sender: TObject);:integer;:=StrToInt(Edit8.Text);.ColCount:=Nomenkl;.RowCount:=2;i:= 1 to Nomenkl do.Cells[i-1,0]:=IntToStr(i);;TForm1.Button10Click(Sender: TObject);:integer;;i:= 1 to Nomenkl do.Cells[i-1,1]:=FloatToStr(random(1000)/10);;TForm1.Button11Click(Sender: TObject);
StringGrid3.Cells[0,1]:=. ;.Cells[0,2]:=- .;
end;TForm1.Button2Click(Sender: TObject);FF: TextFile;: integer;.Execute;(FF,SaveDialog1.FileName);(FF);(FF,Stanki:5,Smena_DU:5,Emkost:5,KorSKL:8:2,L_Skl:8:2,Skor_TT:8:2,T_sm:5,Nomenkl:5,PZ:5);i:=1 to Stanki do Write(FF,Koord[i]:8:2); Writeln(FF);i:=1 to Nomenkl do Write(FF,WremqDU[i]:8:2); Writeln(FF);i:=1 to PZ do Write(FF,Kod_PZ[i]:5); Writeln(FF);i:=1 to PZ do Write(FF,Kol_PZ[i]:5); Writeln(FF);i:=1 to Emkost do Write(FF,KodSklad[i]:5); Writeln(FF);(FF);;TForm1.Button3Click(Sender: TObject);FF: TextFile;: integer;.Execute;(FF,OpenDialog1.FileName);(FF);(FF,Stanki,Smena_DU,Emkost,KorSKL,L_Skl,Skor_TT,T_sm,Nomenkl,PZ);i:=1 to Stanki do Read(FF,Koord[i]); Readln(FF);i:=1 to Nomenkl do Read(FF,WremqDU[i]); Readln(FF);i:=1 to PZ do Read(FF,Kod_PZ[i]); Readln(FF);i:=1 to PZ do Read(FF,Kol_PZ[i]); Readln(FF);i:=1 to Emkost do Read(FF,KodSklad[i]); Readln(FF);(FF);Form1 do.Text:=IntToStr(Stanki);.Text:=IntToStr(Smena_DU);.ColCount:=Stanki;i:=1 to Stanki do StringGrid1.Cells[i-1,1]:=FloatToStr(Koord[i]);.Text:=IntToStr(Emkost);.Text:=FloatToStr(KorSkl);.Text:=FloatToStr(L_skl);.Text:=FloatToStr(Skor_TT);.Text:=IntToStr(T_sm);.Text:=IntToStr(Nomenkl);.ColCount:=Nomenkl;i:=1 to Nomenkl do StringGrid2.Cells[i-1,1]:=FloatToStr(WremqDU[i]);.Text:=IntToStr(PZ);.ColCount:=PZ+1;i:=1 to PZ do StringGrid3.Cells[i,1]:=FloatToStr(Kod_PZ[i]);i:=1 to PZ do StringGrid3.Cells[i,2]:=FloatToStr(Kol_PZ[i]);.ColCount:=Emkost;i:=1 to Emkost do StringGrid4.Cells[i,0]:=IntToStr(i);i:=1 to Emkost do StringGrid4.Cells[i,1]:=IntToStr(KodSklad[i]);
StringGrid4.Cells[0,0]:=;.Cells[0,1]:=;
end;:=true;;;TForm1.Button6Click(Sender: TObject);(handle,open,1.exe,nil,nil,SW_SHOW);;.