Delphi. Работа с классами

[Арианна]

Совсем недавно начала изучать Delphi, а тут дали задание на классы. Вроде бы и не очень сложно, но что-то у меня не получается. А задание такое: "На форме есть 2 Edit и 2 кнопки. Нужно, чтобы при нажатии одной кнопки число из первого Edit возводилось в квадрат, а при нажатии второй кнопки в куб. Результат должен выводиться во втором Edit. Все это нужно сделать через классы. У меня есть пример, но там результат выводиться сообщением.

unit Unit1;
interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

type
TEvenNumber=Class
private
EvenNumber:integer;
public
constructor SetNumber(Number:integer);
function pow_2:integer;
function pow_3:integer;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

constructor TEvenNumber.SetNumber(Number:integer);
begin
EvenNumber:=Number;
end;

function TEvenNumber.pow_2:integer;
begin
result:=EvenNumber*EvenNumber;
end;

function TEvenNumber.pow_3:integer;
begin
result:=EvenNumber*EvenNumber*EvenNumber;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
T:TEvenNumber;
begin
T:=TEvenNumber.SetNumber(strtoint(edit1.Text));
showmessage(inttostr(T.pow_2));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
T:TEvenNumber;
begin
T:=TEvenNumber.SetNumber(strtoint(edit1.Text));
showmessage(inttostr(T.pow_3));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.

[GetMax]

Вместо

showmessage(inttostr(T.pow_2));

Пишите

Edit2.Text:=IntToStr(T.pow_2));

Аналогично при возведении в куб

[Арианна]

не получается. там какая-то проблема в коде. ошибок нет, но в Edit ничего не выводиться

[GetMax]

Вот так у меня все работает

procedure TForm1.Button1Click(Sender: TObject);
Var
  t:TEvenNumber;
begin
  T:=TEvenNumber.SetNumber(strtoint(edit1.Text));
  Edit2.Text:=IntToStr(T.pow_2);
end;

[Stilet]

T:=TEvenNumber.SetNumber(strtoint(e dit1.Text));

Круто! А создавать объект кто будет? Что-то я не вижу static в описании класса.

[Арианна]

Я просто не знаю как оформляются классы в Delphi =(((

[Son Of Pain]

Тогда прочитай про то, что в делфи обозначает слово new, например

[Serge_Bliznykov]

Арианна, ничего в Edit у Вас не выводится, потому как в Edit1 Вы задаёте исходное число.
Результат в вашем примере выводился с помощью ShowMessage.
Если нужно, чтобы результат попадал в Edit2 - нужно прописать код присвоения результата. (как это сделано в примере GetMax в пост #4)

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

Круто! А создавать объект кто будет? Что-то я не вижу static в описании класса.

Виталий, зачем Вы так? Вы своим вопросом сломали мне всю веру в ООП!

А как же понимать слово constructor ? Разве вызов метода-конструктора недостаточно для создания экземпляра класса?!

 
type
TEvenNumber=Class
private
EvenNumber:integer;
public
constructor SetNumber(Number:integer);
function pow_2:integer;
function pow_3:integer;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

constructor TEvenNumber.SetNumber(Number:integer);
begin
EvenNumber:=Number;
end;

T:=TEvenNumber.SetNumber(strtoint(edit1.Text));