Студент [Delphi]

[russianemperor]

Помогите решить задачу:
Объявить в Delphi класс, позволяющий объекту хранить информацию о количестве скважин куста на нефтяном промысле. Предусмотреть в созданном классе наличие метода, который по введённому суточному дебиту каждой скважины определяет номер самой малопродуктивной скважины. Применить класс в проекте, реально определяющем такой номер. Для ввода данных в проекте обязательно использовать
компонент StringGrid. Перед окончанием работы проекта освободить динамическую память, выделенную под объект.

[Stilet]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses     contnrs,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type
  TOil=class
    public
      Debit:integer;
  end;

  { TTramp }

  TTramp=class
    private
      Oils:TObjectList;
    public
      Function Fail:Integer;
      Function Add:TOil;
      Constructor Create;
      destructor Destroy;
  end;

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
 //Создаем нефтекомпанию
  with TTramp.Create do begin
    // Добавляем вышки и дебиты
    with Add do debit:=1;
    with Add do debit:=2;
    with Add do debit:=3;
    // Ищем самую плохую
    Caption:=IntToStr(Fail);
    Destroy;
  end;
end;

{$R *.lfm}

{ TTramp }
// Функа поиска минимального дебета
function TTramp.Fail: Integer;
var i:integer;
begin
 Result:=0;
 for i:=0 to Oils.Count-1 do begin
   if TOil(Oils[Result]).Debit>TOil(Oils[i]).Debit then Result:=i;
 end;
end;

// Функа добавления вышки, и возвращения ее для операций
function TTramp.Add: TOil;
begin
 Result:=TOil(Oils[Oils.Add(TOil.Create)]);
end;

constructor TTramp.Create;
begin
 Oils:=TObjectList.create;
end;

destructor TTramp.Destroy;
begin
 oils.Clear;
 oils.Destroy;
end;

end.

Подходит идея?

[russianemperor]

Готовый проект можно скинуть?!

[Человек_Борща]

Нет, нельзя. Самому его создать?

[Stilet]

Готовый проект можно скинуть?!

У меня нет Делфи. Я с потолка писал.

[russianemperor]

Мне бы такой потолок.)

[puporev]

Готовый проект можно скинуть?!

У меня нет Делфи. Я с потолка писал.

Это не код всего проекта, а лишь идея как его составить.
Если нужно, тот же код, поправленный под Делфи 7.

unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Contnrs;
 type
  TOil=class
    public
      Debit:integer;
  end;

  { TTramp }

  TTramp=class
    private
      Oils:TObjectList;
    public
      Function Fail:Integer;
      Function Add:TOil;
      Constructor Create;
      destructor mydestroy;
  end;
  { TForm1 }
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{ TTramp }
// Функа поиска минимального дебета
function TTramp.Fail: Integer;
var i:integer;
begin
 Result:=0;
 for i:=0 to Oils.Count-1 do begin
   if TOil(Oils[Result]).Debit>TOil(Oils[i]).Debit then Result:=i;
 end;
end;

// Функа добавления вышки, и возвращения ее для операций
function TTramp.Add: TOil;
begin
 Result:=TOil(Oils[Oils.Add(TOil.Create)]);
end;

constructor TTramp.Create;
begin
 Oils:=TObjectList.create;
end;

destructor TTramp.mydestroy;
begin
 oils.Clear;
 oils.Destroy;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 //Создаем нефтекомпанию
  with TTramp.Create do begin
    // Добавляем вышки и дебиты
    with Add do debit:=1;
    with Add do debit:=2;
    with Add do debit:=3;
    // Ищем самую плохую
    Caption:=IntToStr(Fail);
    mydestroy;
  end;
end;

end.