Класс в Delphi

[Vampirius]

Подскажите как создать класс Рациональная Дробь в среде Delphi со всеми возможными действиями над ними

[Stilet]

Если интересует в принципе теория о создании класса то вот неплохая статья
http://www.rsdn.ru/article/Delphi/makecomponents.xml
Здесь речь идет о компонентах - но они такие же классы.

[Vampirius]

Интересует создание класса на примере рациональной дроби.
Статью посмотрел. Доходчиво написано.

А кто является родительским классом для рациональных дробей и как обозначить свойства и действия над ними?

Без классов задача решается достаточно просто, а вот с ними уже хуже.

[Stilet]

А кто является родительским классом для рациональных дробей

Та можешь смело TComponent брать.

как обозначить свойства

Всмысле обозначить? Описать? - через Property
http://www.delphisources.ru/pages/fa...perty.php.html

[Utkin]

Сообщение от Vampirius

А кто является родительским классом для рациональных дробей и как обозначить свойства и действия над ними?

Родоначальником всех классов (и TComponent'a) является TObject. Если Ваш класс не собирается рисоваться на форме, отображаться и печататься где-то еще, то можно и от TObject'a унаследоваться.

Без классов задача решается достаточно просто, а вот с ними уже хуже.

Это дело привычки.

type
     TDrob = class      // Эквивалентно drob = class (TObject)
         pivate
              m: Integer;   // Числитель дроби
              n: Integer;    // Знаменатель
         public
              constructor Create;
              destructor Destroy;
              procedure Set (Zisitel, Znamenatel: Integer);
              function GetZislitel(): Integer;
              function GetZnamenatel(): Integer;
              procedure Add (Zislitel, Znamenatel): Integer;
    end;

Вот объявление для примера. Распишите методы и продолжите вычитание, умножение и деление.

Сразу скажу, что конечно можно создать и методы для работы с TDrob - то есть допустим задать сложение так: Procedure Add (Value: TDrob); но я бы не советовал. Этим заниматься должны (по идеи) структуры более высокого порядка, например массивы дробей и т.д.

[Vampirius]

Выдаёт declaration of class tform1 is missing or incorrect
Посмотрел в интернете об ошибке. Говорят нужно создавать консольное приложение. А работу надо выполнить в объектном.
В чём ошибка?

[Utkin]

Ошибка в том, что это только пример объявления класса. А к нему еще требуются сами методы:

constructor TDrob.Create;
begin
end;

destructor TDrob.Destroy;
begin
end;

ну и т.д. TDrob здесь говорит о том, что этот метод принадлежит именно этому классу (в юните может быть огромная куча классов и просто функций и процедур).

[Vampirius]

Как я понял в деструктор можно записывать процедуры а вот чем наполнить конструктор?

[Utkin]

Тем же. Конструктор нужен для подготовки экземпляра класса к работе. Самый простой вариант это инициализация Ваших полей (в качестве которых тоже могут выступать экземпляры классов, например TStringList).
В Вашем случае можно написать так:

constructor TDrob.Create;
begin
      Inherited Create;   // Здесь Вы вызываете конструктор предка, в нашем случае это TObject
      m:=0;
      n:=1;
end;

[Stilet]

а вот чем наполнить конструктор?

А можешь вообще егоне наполнять.
Просто сделай пустой.
Доверяй делфи - после того как описал все нужные методы класса, стань на них и нажми CTRL+SHIFT+C и пусть само создаст из тела.
А там наполняй сколько хочешь и чем хочешь