Курсовая работа: Решение задач линейного программирования транспортной задачей

Button1.Hide;

Button2.Show;

i:=SpinEdit2.Value;

j:=SpinEdit1.Value;

for i1:=1 to i do

for j1:=1 to j do

begin

s:=TMaskEdit.Create(Form1);

s.Width:=25;

s.Left:=i1*25;

s.Top:=j1*21;

s.Name:='Matrix'+IntToStr(j1)+IntToStr(i1);

(TControl(s) as TMaskEdit).Text:='';

(TControl(s) as TMaskEdit).EditMask:='999;0; ';

Form1.InsertControl(s);

end;

for i1:=1 to j do

begin

s:=TMaskEdit.Create(Form1);

s.Width:=25;

s.Left:=i*25+35;

s.Top:=i1*21;

s.Name:='Matrix'+'0'+IntToStr(i1);

(TControl(s) as TMaskEdit).Text:='';

(TControl(s) as TMaskEdit).EditMask:='999;0; ';

Form1.InsertControl(s);

end;

for j1:=1 to i do

begin