Delphi - создать свой класс

[New man]

  Object:=TExpression.Create;

[Son Of Pain]

Объявляешь переменную с типом своего класса. Пишешь в коде переменная := класс.create;

[Електроник]

Спасибо всем за помощь!

вот какой код у меня получился и работает...

unit Unit1;

interface

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

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

type
TMyClass = class (TObject)
private

public
function Expr_(str_in:String):String;
end;



var
Form1: TForm1;
Ex: TMyClass;
str:String;



implementation

{$R *.dfm}

function TMyClass.Expr_(str_in:String):strin g;
begin
Result:=str_in;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
str:=Ex.Expr_(Edit1.Text);
Edit2.Text:=str;
end;

end.

Долго експерементировал, в разних примерах по разному писали и вот что вышло....может что-то не так но работает..
Елси плохой код напишите если не сложно где переработать можна на лучше....=)

[veniside]

str:=Ex.Expr_(Edit1.Text);

перед обращением к полям/методам класса его принято создавать.

Ex: TMyClass;

это не создание класса, а только его объявление. На С++ так можно, в Дельфи нужно явно создавать:

Ex := TMyClass.Create();

только перед созданием неплохо бы проверить, что класс ещё не создан:

if (nil = Ex) then Ex := TMyClass.Create();

может что-то не так но работает..

работает по чистой случайности, т.к. метод вашего класса ничего толком не делает, и, фактически, является процедурой, связанной с классом только именем.

Ну и не забываем класс удалять, так тоже принято в хороших программах:

Ex.Free(); Ex := nil;

[Електроник]

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

str:=Ex.Expr_(Edit1.Text);

перед обращением к полям/методам класса его принято создавать.

Ex: TMyClass;

это не создание класса, а только его объявление. На С++ так можно, в Дельфи нужно явно создавать:

Ex := TMyClass.Create();

только перед созданием неплохо бы проверить, что класс ещё не создан:

if (nil = Ex) then Ex := TMyClass.Create();

работает по чистой случайности, т.к. метод вашего класса ничего толком не делает, и, фактически, является процедурой, связанной с классом только именем.

Ну и не забываем класс удалять, так тоже принято в хороших программах:

Ex.Free(); Ex := nil;

Спасибо за обьяснение, а в какой части програми нужно написать Create?? перед Implementation или после....
и если я все зделаю по твоей подсказке код будет верним полностью и можно будет функцию зделать сложнее??

Я добавил

if (nil = Ex) then Ex := TMyClass.Create();

в процедуру онклик кнопки, но не знаю правильно ли я зделал..
а еще

Ex.Free(); Ex := nil;

[/QUOTE] подумал добавить при завершении програми, но тоже не знаю так ли делаю..

[New man]

procedure TForm1.Button1Click(Sender: TObject);
begin
Ex:=TMyClass.Create;
str:=Ex.Expr_(Edit1.Text);
Edit2.Text:=str;
Ex.free;
end;

[Електроник]

Сообщение от New man

procedure TForm1.Button1Click(Sender: TObject);
begin
Ex:=TMyClass.Create;
str:=Ex.Expr_(Edit1.Text);
Edit2.Text:=str;
Ex.free;
end;

да я так и сделал...это уже будет правильно???

спасибо!

[Kotlyar562]

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

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type
  TCircle= class(TObject)
    Fx, Fy : real; //координаты центра
    Fr: real;      //радиус
    constructor create;
    function S: real;
    function C: real;
  end;


constructor TCircle.create;   //описываем конструктор создания класса
begin
  inherited Create;        //вызываем конструктор родительского класса (TObject)
                           //чтобы выделить память под объект и т.д
                           
  Write('x= '); readln(Fx);   //пользователь вводит координаты и радиус
  Write('y= '); readln(Fy);
  Write('r= '); readln(Fr);
end;

function TCircle.S:real;   //описываем функцию нахождения площади круга
begin
  result:=pi*Fr*Fr;
end;

function TCircle.C:real;  //и функцию расчета длины окружности
begin
  result:=2*pi*Fr;
end;


var Circ: TCircle;

        //тело программы
begin
  Circ:= TCircle.create;  //создаем объект нашего класса
  Writeln('S= ',Circ.S:0:3);   //вызываем необходимые методы
  Writeln('C= ', Circ.C:0:3);
  Circ.Free;     //уничтожаем объект
  readln;
end.

[Електроник]

Ваш пример работает как нужно, а у меня ошыбки и что делать не знаю...