Описать информацию о количестве обсадных труб скважины

unit UnitMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TmainForm = class(TForm)
    buttonExit: TButton;
    buttonCalc: TButton;
    buttonAdd: TButton;
    buttonDelete: TButton;
    stringGridTrumpet: TStringGrid;
    procedure buttonExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure buttonAddClick(Sender: TObject);
    procedure buttonDeleteClick(Sender: TObject);
    procedure buttonCalcClick(Sender: TObject);
    procedure onDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
      State: TGridDrawState);
   
  private
    indexRowMaxVolume :Integer;
  public
    { Public declarations }
  end;
 
  //определяем класс Труба, у которого есть длина и внутренний диаметр
  TTrumpet = class(TObject)
    //объявляем конструктор для объектов
    constructor Create(Length :Integer; Diameter :Integer);
    private
      //длина трубы
      Length :Integer;
      //внутренний диаметр
      Diameter :Integer;
 
    public
      //метод вычисление объема трубы
      function CalculateVolume :Real;
  end;
 
  //определяем класс TrumpetKeeper, который содержит массив труб и умеет определять
  //у какого именно элемента в массиве наибольший объем
  TTrumpetKeeper = class(TObject)
    //объявляем конструктор для объектов
    constructor Create(countItems :Integer; var arrayTrumpets :array of TTrumpet);
    private
      //количество элементов в массиве
      countItems :Integer;
      //массив с трубами
      arrayTrumpets :array of TTrumpet;
 
    public
      //метод вычисляет максимальный объем трубы и
      //возвращает индекс элемента в массиве
      function getIndexItemMaxVolumn :Integer;
 
      //метод очищает занятые ресурсы массивом
      procedure clean;
  end;
 
 
var
  mainForm: TmainForm;
 
implementation
 
{$R *.dfm}
 
//конструктор объектов класса Труба
constructor TTrumpet.Create(Length :Integer; Diameter :Integer);
begin
  self.Length := Length;
  self.Diameter := Diameter;
end;
 
//метод вычисления объема трубы осуществляется по формуле V=pi*r*r*h
function TTrumpet.CalculateVolume :Real;
var
//объявляем переменную радиус, она нам понадобится для вычисления в формуле
Radius : Real;
begin
//вычисляем радиус
Radius := Diameter/2;
//вычисляем объем
Result := 3.14 * Radius * Radius * Length;
end;
 
//конструктор объектов класса, который содержит в себе массив с трубами
//и умеет определять у них максимальный объем
constructor TTrumpetKeeper.Create(countItems :Integer; var arrayTrumpets :array of TTrumpet);
var
  indexTrumpet :Integer;
begin
  self.countItems := countItems;
  SetLength(self.arrayTrumpets, countItems);
 
  //копируем элементы из переданного массива
  for indexTrumpet := 0 to countItems - 1 do
  begin
    self.arrayTrumpets[indexTrumpet] := arrayTrumpets[indexTrumpet];
  end; 
end;
 
function TTrumpetKeeper.getIndexItemMaxVolumn :Integer;
var
  //объявляем переменную для хранения, результирующего значения индекса
  //трубы с максимальным объемом
  IndexItem :Integer;
 
  //объявляем переменную для временного хранения значения индекса
  currIndex :Integer;
 
  //переменная хранит временное значение объема трубы
  VolumeItem :Real;
 
  //переменная хранит максимальное значение объема трубы
  MaxVolumeItem :Real;
 
  //объект труба для временного хранения при обходе цикла
  item: TTrumpet;
begin
  //сперва максимальный объем трубы равен -1, чтобы потом можно было найти
  //больше него
  MaxVolumeItem := -1;
 
  for currIndex := 0 to countItems - 1 do
  begin
    //получаем очередной элемент Труба из списка
    item := arrayTrumpets[currIndex];
 
    //вычисляем объем трубы
    VolumeItem := item.CalculateVolume();
 
    //проверяем, полученное значение, больше ли максимального
    if (VolumeItem > MaxVolumeItem) then
    begin
        //запоминаем новый элемент (трубу) в списке с максимальным объемом
        MaxVolumeItem := VolumeItem;
        IndexItem := currIndex;
    end;
  end;
Result := IndexItem;
end;
 
//метод очищает занятые ресурсы массивом
procedure TTrumpetKeeper.clean;
begin
  SetLength(self.arrayTrumpets, 0);
end;
 
 
 
//обработка нажатия на кнопку выхода из приложения
procedure TmainForm.buttonExitClick(Sender: TObject);
begin
  mainForm.Close;
end;
 
//обработка при создании главной формы приложения
procedure TmainForm.FormCreate(Sender: TObject);
begin
  //здесь мы задаем колонкам нужные нам имена
  stringGridTrumpet.Cols[0].Text := '№ п/п';
  stringGridTrumpet.Cols[1].Text := 'Длина, мм';
  stringGridTrumpet.Cols[2].Text := 'Диаметр, мм';
  stringGridTrumpet.Cols[3].Text := 'Объем, куб. мм';
 
  //устанавливаем нужный размер для колонки с порядковым номером
  stringGridTrumpet.ColWidths[0]:=40;
 
  stringGridTrumpet.Cells[0, 1] := '1';
 
  indexRowMaxVolume := 0;
end;
 
//обработка добавления новой строки в грид (таблицу)
procedure TmainForm.buttonAddClick(Sender: TObject);
begin
  //таким образом мы добавляем строки в таблицу
  stringGridTrumpet.RowCount := stringGridTrumpet.RowCount + 1;
 
  //устанавливаем номер по порядку для первой строки после строки с заголовками
  stringGridTrumpet.Cells[0, stringGridTrumpet.RowCount - 1] := IntToStr(stringGridTrumpet.RowCount - 1);
end;
 
//обработка удаления новой строки в грид (таблицу)
procedure TmainForm.buttonDeleteClick(Sender: TObject);
begin
  //возможно уменьшать строки только до одной строки и строки с заголовками,
  //так как таблица без строк не имеет смысла
  if (stringGridTrumpet.RowCount > 2) then
  begin
    stringGridTrumpet.RowCount := stringGridTrumpet.RowCount - 1;
  end;
end;
 
//метод определяет непосредственно строку в таблице с максимальным
//объемом у трубы
procedure TmainForm.buttonCalcClick(Sender: TObject);
var
  //массив с объектами Трубами, который мы получим пробежавшися циклом по гриду (таблице)
  trumpets :array of TTrumpet;
  //все переменные здесь начинающиеся на curr являются временными и используются только в цикле
  currIndexRow :Integer;
  currIndexCoumn :Integer;
  currLength :Integer;
  currDiameter :Integer;
  currTrumpet :TTrumpet;
 
  //объект, который содержит массив с объектами Трубами и умеет определять трубу с наибольщим объемом
  trumpetKeeper :TTrumpetKeeper;
begin
  //устанавливаем размер динамическому массиву
  SetLength(trumpets, stringGridTrumpet.RowCount - 1);
  for currIndexRow := 1 to stringGridTrumpet.RowCount - 1 do
  begin
      //пытаемся распарсить грид и получить целочисленные значения переменных Длинна, Диаметр у трубы
      currLength := StrToIntDef(stringGridTrumpet.Cells[1, currIndexRow], -10001);
      currDiameter := StrToIntDef(stringGridTrumpet.Cells[2, currIndexRow], -10001);
      //если не удалось получить значение, то выводим сообщение на экран
      if((currLength = -10001) or (currDiameter = -10001)) then
      begin
        ShowMessage('Не удалось определить число в строке номер ' + IntToStr(currIndexRow));
        exit;
      end;
 
      //создаем новый объект Труба из полученных значений
      currTrumpet := TTrumpet.Create(currLength, currDiameter);
      trumpets[currIndexRow-1] := currTrumpet;
 
      //отображаем посчитанный объем в гриде
      stringGridTrumpet.Cells[3, currIndexRow] := FloatToStr(currTrumpet.CalculateVolume());
  end;
 
  trumpetKeeper := TTrumpetKeeper.Create(stringGridTrumpet.RowCount - 1, trumpets);
 
  //ищем индекс элемента с максимальным объемом у трубы
  self.indexRowMaxVolume := trumpetKeeper.getIndexItemMaxVolumn() + 1;
 
   //освобождаем за собой занятые ресурсы
   trumpetKeeper.clean();
   SetLength(trumpets, 0);
 
   //принудительно говорим перерисовать компоненту
   stringGridTrumpet.Invalidate();
end;
 
//метод отрисовки строки нужными цыетом
procedure TmainForm.onDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  //если это строка с заголовками или столбец номера по порядку, то пропускаем
  if (ACol=0) Or (ARow=0) Then Exit;
  //отрисовываем строку, которую мы определили, что та объем самый большой, нужным цветом
  if (ARow = self.indexRowMaxVolume) then
  begin
    //выбираем зеленный цвет и закрашиваем что нам нужно
    stringGridTrumpet.Canvas.Brush.Color := clGreen;
    stringGridTrumpet.Canvas.FillRect(Rect);
    stringGridTrumpet.Canvas.TextOut(Rect.Left, Rect.Top, stringGridTrumpet.Cells[ACol, ARow]);
  end;
end;
 
end.