ооп в Паскале Опции

[Ангелина_А]

здравствуйте. подскажите пожалуйста мне с задачей. я недавно начала изучать эту тем, но до сих пор путаюсь.
Создать класс chisla, заданный тремя целыми числами. Выполнить следующие пункты в виде методов класса:
1)равны ли суммы их цифр,
2)посчитать количество цифр «0 » и «5 » в каждом числе.

[Федосеев Павел]

Вот пример создания класса - http://delphi-faq.zoxt.net/a17.htm.

Попробуй реализовать что-нубудь подобное, только в Create будет какая-то инициализация трёх чисел. Покажи, что конкретно непонятно...

[IUnknown]

Это пример создания класса, причем в ObjectPascal/Delphi... В Турбо Паскале (в большинстве своем в этом разделе именно задачи на Турбо-Паскаль) это не сработает. Там Объекты, и никаких свойств...

[Федосеев Павел]

Кстати да.

Я предполагаю, что топикстартер не придумал термины, а честно переписал условие из методички. И даже тогда, несмотря на традиции, вопрос подпадает под тематику раздела "Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи >".

Ждём реплику топикстартера. Желательно с собственными попытками решения.

[Федосеев Павел]

Volvo, а подскажите пожалуйста, что от меня хочет JCF (JEDI форматтер кода).
Я попробовал реализовать на FPC решение. Получилось примерно следующее:

{$mode Delphi}
program Lab;
  .................
type
  TArray = array[1..3] of integer;

  TChisla = class(TObject)
  private
    {в массиве A будут храниться целые числа}
    A: TArray;
    {проверка на равенство суммы цифр}
    function EqualSumma: boolean;
    {подсчёт количества цифр 0 и 5 в числе с номером Number}
    function CountDigit(Number: integer): integer;
  public
    constructor Create(AFirst, ASecond, AThird: integer);
    destructor Destroy; override;       <---------------------------------------- указание на эту строку
  end;

  { TChisla }

  constructor TChisla.Create(AFirst, ASecond, AThird: integer);
  begin
    inherited Create; {вызов конструктора класса родителя}
    A[1] := AFirst;
    A[2] := ASecond;
    A[3] := AThird;
  end;

  destructor TChisla.Destroy;
  begin
    inherited;
  end;

  function TChisla.EqualSumma: boolean;
  .................

  function TChisla.CountDigit(Number: integer): integer;
  .................

var
  chisla: TChisla;
begin
  chisla := TChisla.Create(10023, 230456, 40554);
  WriteLn(chisla.EqualSumma);
  WriteLn(chisla.CountDigit(1));
  WriteLn(chisla.CountDigit(2));
  WriteLn(chisla.CountDigit(3));
  chisla.Free;
end.

Потом пропустил это через JCF. Помимо прочего, было сообщение с указанием на строку в описании типа

Destroy should not normally be called. You may want to use FreeAndNil(MyObj), or MyObj.Free, or MyForm.Release near Destroy at line 36 col 16

Я догадываюсь, что это warning. Но если бы вместо массива использовался TCollection - его бы потребовалось освобождать, а для этого переопределить Destroy. Как я понимаю Free и FreeAndNil (которые настоятельно рекомендуют применять) обращаются к Destroy. О чём тогда предупреждать?

Сообщение отредактировано: Федосеев Павел - 9.09.2013 22:59