Разработать класс «Комплексное число»

[Armageddets]

Доброго времени суток, уважаемые эксперты. Задали следующую задачу:

1) Разработать класс «Комплексное число».
2) Определить в нем конструктор,
3) перегрузить арифметические операции,
4) операции сравнения,
5) операцию преобразования в строку
6) и статический метод получения комплексного числа из строки

В интернете нашел довольно много информации на эту тему. Но поскольку с классами особо не работал, то столкнулся с проблемой заполнения х и у внутри класса если данные брать из эдитов (хотя можно делать не обязательно так). Вообще стоит задача сделать как можно проще. Я пробовал много разных вариантов, но почему-то у меня программа компелируется но на этапе конструктора (при нажатии кнопки) выскакивает ошибка Viaccess violation. Насколько я понимаю - я вылажу за границы или беру неопределенные данные где-то.

В общем прошу помощи в том как можно исправить мой код или реализовать может эту задачу иными способами.

Вот мой код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type

  TComplex=class(TObject)
   private
    x : integer; // целая часть
    y : real; // комплексная часть
   public
    constructor Create(x:Integer; y:real) overload; //конструктор
    //procedure Arigmetika() overload; //арифметические операции
    //procedure Sravnenie() overload; //операции сравнения
    //procedure STR() overload; //преобразованиe в строку
    //procedure StatikStr() overload; //получениe комплексного числа из строки
    destructor Free();

  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  c : TComplex;
implementation

{$R *.dfm}

constructor TComplex.Create(x:Integer; y:real);
begin
//Inherited Create();
self.x := x;
self.y := y;
end;

destructor TComplex.Free();
begin
x := 0;
y := 0;
//Inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  if (Edit1.Text<>'') and (Edit2.Text<>'') then
  begin
  c.Create(StrToInt(Edit1.Text),StrToFloat(Edit2.Text));
  //c.x:=StrToInt(Edit1.Text);
  //c.y:=StrToFloat(Edit2.Text);
  //form1.Caption:=IntToStr(c.x);
  end
  else ShowMessage('Введите Х и У');

end;

end.

Ниже прилагаю сам проект:

[min@y™]

найди того, кто тебя научил писать overload везде, где оно нах не нужно, и оторви ему зад голову руки язык.

private
    x : integer; // целая часть :))))) охренеть - не встать!
    y : real; // комплексная часть
   public

а потом сходи на википедию и посмотри, чо такое комплексное число, математик хренов.

[min@y™]

А вот потом поговорим, что такое конструктор, и как его правильно вызывать.
Программист хренов.

c.Create(StrToInt(Edit1.Text),StrToFloat(Edit2.Text));

Так делать разрешено только Чаку Норрису.

[vlad1389]

Armageddets Не обращай внимания, он у нас контуженный

c := TComplex.Create(StrToInt(Edit1.Text),StrToFloat(Edit2.Text));

[Armageddets]

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

Armageddets Не обращай внимания, он у нас контуженный

c := TComplex.Create(StrToInt(Edit1.Text),StrToFloat(Edit2.Text));

Спасибо большое.

[min@y™]

Последний раз редактировалось MihalNik; Сегодня в 03:47. Причина: зад

Тебе слово "жопа" не понравилась, цензурщик? Это гнойная форма синдрома вахтёра.







Твой ход, "уважаемый".

[phomm]

Виталий (по почте) иль Владимир (по скайпу).. (Armageddets который)
Не хотим учиться, всё на грабли наступаем, предлагал же..

Как конструктор вызвать уже подсказали, про перегрузку операторов min@y™ толсто намекнул, но не пояснил.
Поясняю: перегрузка операторов (ключевое слово class operator) имеет мало общего с перегрузкой подпрограмм (ключевое слово overload), и доступна перегрузка операторов начиная с дельфи 2009, в отличие от перегрузки подпрограмм (доступной емнип, с дельфи2). Возможно, ещё есть некоторая путаница, если в задании было указано сделать перегруженные варианты самой перегрузки операторов - возможность написать несколько версий работы одного и того же оператора (например, сложения) для разных типов данных, например, просто с числом, и с другим комплексным числом.
Чтобы реализовать перегрузку операторов, можно руководствоваться этой статьёй
По комплексным числам тоже промашка, общее понимание легко составиь из википедии, суть в том что действительная и мнимая части просто считаются отдельно, тип же данных для них удобно выбрать любой из действительных (а не целых, как сделано в коде), но предпочтение лучше отдать Single или Double.
Ещё замечу, что обнулять переменные в деструкторе нет смысла.
И делать так проверку программы (та, что по кнопке) с точки зрения инкапсуляции (одного из столпов ООП) - некорректно, т.к. используется хитрая фича дельфи, которая сразу сломается, если класс комплексного числа перенести в другой модуль, а именно возможность доступа к полям класса в том же модуле, где объявлен класс (т.н. дружественность), чтобы этого избежать, надо добавить в класс комплексного числа свойства, доступные только для чтения (т.к. присваивание данных полям должны быть либо в конструкторе, либо в результате написанных Вами операций), ну и для корректности перенести всё же класс в отдельный модуль.
Примерный вид кода для свойств:

private 
  FX: Single;
public
  property X: Single read FX;

Предложение озвученное 4 года назад, в принципе, ещё в силе, особенно, если есть желание учиться на ниве геймдева.