Код Делфи в Билдер

// эти компоненты добавляете на форму из палитры компонентов
StringGrid1
SpinEdit1
SpinEdit2
Label1
Label2
Button
Button
StringGrid2
Label3
Edit1
 
// Эти обработчики делаете в инспекторе объектов
Button1Click
Button2Click
 
int a[][]; // двумерный массив, я так понимаю
int n,m;
 
// в обработчике Button1Click
 
int i,j;
 
Randomize();
n = SpinEdit1->Value;
m = SpinEdit2->Value;
StringGrid1->ColCount = m;
StringGrid1.RowCount = n;
StringGrid2.ColCount = m;
StringGrid2.RowCount = 1;
SetLength(a,n,m); // ??
for (i=0; i< n-1[ i++) {
  for (j=0; j<m-1; i++) {
    a[i][j]=random(20)-5;
    StringGrid1->Cells[j][i] =IntToStr(a[i][j]);
  }
}
 
 
// в обработчике Button2Click
int *b;
int s,i,j,mx,imx,p;
 
Setlength(b,m);
p = 0;
for (j=0; j<m-1; j++) {
  s=0;
  for (i=0; i<n-1; i++) {
    if (a[i][j]<0) {s=s+a[i][j]};
      b[j]=s;
      StringGrid2->Cells[j][0]=IntToStr(b[j]);
  }
  p=0;
  for (i=0; i<m-1; i++) {
    if )b[i]>b[p] {p=i;}
    Edit1-?Text = "Максимальный="+IntToStr(b[p])+
    " его номер="+IntToStr(p+1);
  }
}

FmRC.mList.Items.Add(sgData.Cells[k, 0]);
FmRC.ShowModal;
//Корректируем сетку данных в соответствии с изменен.,сделанными пользователем
sgData.ColCount:= FmRC.mList.Items.Count+1;
for k:= 1 to sgData.ColCount-1 do
sgData.Cells[k, 0]:= FmRC.mList.Items[k-1];
FmRC.Free;
FmRC:= NIL
end;
procedure TFmPTC.bbCalcClick(Sender: TObject);
var
PTCCalc: TPTCCalc;
i, j: Integer;
begin
//Создаем объект-счетчик соразмерно сетки данных
PTCCalc:= TPTCCalc.Create(sgData.RowCount-1, sgData.ColCount-1);
try
try
//Заполняем входящими данными необхзодимые поля объекта
for i:= 1 to PTCCalc.ResCount do
PTCCalc.Resources[i-1]:= StrToInt(sgData.Cells[0, i]);
for j:= 1 to PTCCalc.CustCount do
PTCCalc.Customers[j-1]:= StrToInt(sgData.Cells[j, 0]);
for i:= 1 to PTCCalc.ResCount do
for j:= 1 to PTCCalc.CustCount do
PTCCalc.Constraints[i-1, j-1]:= StrToInt(sgData.Cells[j, i]);
PTCCalc.Calc;
except
//В случае если сетка оказалась пустой или заполненной мусором
MessageDlg('Данные введены не полностью или не являются числами', mtError,
[mbOk], 0);
end;
finally
//Выполняется в любом случае
if cbxLogged.Checked then //Вывод протокола
mLog.Lines.Text:= PTCCalc.LogList.Text;
if PTCCalc.DataErrorState = deNon then
begin
//Если во входных данных не было ошибок - выводятся результаты
sbState.Panels[0].Text:= 'Количество итераций: '+
IntToStr(PTCCalc.IterCount);
sbState.Panels[1].Text:= 'F = '+ IntToStr(PTCCalc.TargetFunction);
for i:= 1 to PTCCalc.ResCount do
for j:= 1 to PTCCalc.CustCount do
sgData.Cells[j, i]:= IntToStr(PTCCalc.Decisions[i-1, j-1]);
end
else
//иначе - уведомдение о наличии ошибок
MessageDlg('Во входных данных обнаружены нулевые и/или отрицательные величины',
mtError, [mbOk], 0);
//Освобождение ресурсов
PTCCalc.Free;
end;
end;
end.
\\ Form2
unit fu_RC;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
 
type
TFmRC = class(TForm)
edAdd: TEdit;
bbAdd: TBitBtn;
bbRem: TBitBtn;
bbClose: TBitBtn;
mList: TListBox;
procedure bbAddClick(Sender: TObject);
procedure bbRemClick(Sender: TObject);
procedure bbCloseClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
FmRC: TFmRC;
 
implementation
 
{$R *.dfm}
 
procedure TFmRC.bbAddClick(Sender: TObject);
begin
//Добавляет элемент в список
mList.Items.Add(edAdd.Text);
end;
 
procedure TFmRC.bbRemClick(Sender: TObject);
begin
//Удаляет элемент из списка
if mList.ItemIndex > -1 then
mList.Items.Delete(mList.ItemIndex);
end;
 
procedure TFmRC.bbCloseClick(Sender: TObject);
begin
//Закрывает форму
Self.Close;
end;
 
end.

FmRC.mList.Items
FmRC.ShowModal
sgData.ColCount
TFmPTC.bbCalcClick
PTCCalc: TPTCCalc
PTCCalc.Resources
PTCCalc.Customers
PTCCalc.Calc
cbxLogged.Checked
mLog.Lines.Text
sbState.Panels