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

s.Width:=25;

s.Left:=j1*25;

s.Top:=j*21+31;

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

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

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

Form1.InsertControl(s);

end;

Button2.Left:=i*25+25-Button2.Width;

Button2.Top:=j*21+62;

Memo1.Show;

Memo1.Left:=i*25+75;

Memo1.Top:=21;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

s : String;

i, j : Byte;

ss : TControl;

begin

for i:=0 to Form1.ComponentCount-1 do

if (Form1.Components[i] is TMaskEdit) then

begin

s:=Form1.Components[i].Name;

if (s[7]<>'0') and (s[8]<>'0') then

begin

ss:=(Form1.Components[i] as TControl);

c[StrToInt(s[8]),StrToInt(s[7])]:=StrToInt((ss as TMaskEdit).Text);

end