ООП: доступ к методу класса из-вне

[resident]

Здравствуйте!
В классе есть функции. Подскажите, как ими воспользоваться вне класса?
Компилятор ругается, что нет к ним доступа вне класса.
Пример:

Код: Выделить всё

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

type
  TMyClass = class
    public
      function X2(x: integer): integer;
    end;

function TMyClass.X2(x: integer): integer;
  begin
    Result := x * 2;
  end;

var
  y: integer;

begin
  y := TMyClass.X2(y);

end.  

[AlphaBlend]

{сначала надо создать экземпляр класса )))}

Код: Выделить всё

MyClass = class
 function myFunction:boolean;
end;
.....

implementation

function myClass.MyFunction:boolean;
     begin
            ......
     end;
{
дальше используется "взятие  адреса" )))

Если необходимо использовать свои процедуры  где-то в событиях , то они должны  иметь типа ,соответсвующий событию ))
то есть TNotifyEvent = procedure (Sender: TObject) of Object; Если в  MyClass добавить такую процедуру 
}

myClass = class
   procedure Test(Sender:TObject);
end;

//затем  ее  надо реализовать ...

implemetation

procedure MyClass.test(Sender: TObject);
    begin
        showmessage('test');
    end;

// на  кнопочке  формы  можно потом  написать так ( при клике или еще как-то ) 


//  создается  глобально )))
var
   my: TMyClass;
// потом   надо "взять адрес" )  
procedure Button1Click;
begin
    my:=TMyClass.Create;
    Button2.Onclick:=@my.Test;
end;

[pupsik]

Код: Выделить всё

var
  y : integer;
  z : TMyClass;
begin
  z := TMyClass.Create;
  y := z.X2(y);

п.с.
resident хм... Пардон но что то "попались" на мелочи вы
Или это такой флуд

[AlphaBlend]

а мне казалось , что он знает про конструкторы и про то , что такое классы ))) ай-яй-яй )) а еще ерничал :):):)

[resident]

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

[AlphaBlend]

[pupsik]

можно и по другому:

Код: Выделить всё

  With TMyClass.Create do
    y := X2(y);  

или

Код: Выделить всё

y := (TMyClass.Create).X2(y);

А вот как без создания класса увы не знаю
Может: волшебство???

п.с.
resident: но вам то описанные варианты знакомы... Поэтому:

Или это такой флуд

[runewalsh]

Вместо function использовать class function.

[pupsik]

runewalsh если не ошибаюсь: существуют ограничения.

[resident]

class function

Работает! Благодарствую

[pupsik]

http://wiki.freepascal.org/extended_class_syntax - интересненько...
и печальненько: http://www.freepascal.org/docs-html/ref/refsu31.html
Волшебства нет. Доступа к классу нет. Или ошибаюсь?

п.с.
Только вот зачем этот огород? Можно обойтись функцией. Зачем её включать в класс?

[zub]

>>Или ошибаюсь?
Если экземпляра класса нет, то соответственно и доступа нет. но в классе также можно объявить и классовые переменные - к ним доступ будет.

>>Только вот зачем этот огород? Можно обойтись функцией. Зачем её включать в класс?
чтото вроде пространства имен. иногда полезно.

[debi12345]

Вместо function использовать class function.

Ага - т.н. "статический метод" В 99.99% случаев это конструкторы и деструкторы

чтото вроде пространства имен. иногда полезно.

Ага, как например наглядно в данном PHP-коде:

Код: Выделить всё

class MONTH {
    /** Construct won't be called inside this class and is uncallable from
     * the outside. This prevents instantiating this class.
     * This is by purpose, because we want a static class. */
    private function __construct() {}
    private static $monthNums = array();
    private static $monthNames = array();
    private static $initialized = false;

    private static function initialize() {
        if (self::$initialized) return;
      self::$monthNums = array(0,1,2,3,4,5,6,7,8,9,10,11,12);
      self::$monthNames = array('== все ==','Январь','Февраль','Март','Апрель','Май','Июнь','Июль','Август','Сентябрь','Октябрь','Ноябрь','Декабрь');
        self::$initialized = true;
    }
    public static function NUMS($index) {
      self::initialize();
      return self::$monthNums[$index];
   }
    public static function NAMES($index) {
      self::initialize();
      return self::$monthNames[$index];
   }
}

обращение :

Код: Выделить всё

$out['months_range'] = MONTH::NAMES($last_month);

[pupsik]

Странная полезность: создать класс и изредка вызывать функции (процедуры), "дергать" переменные....

[AlphaBlend]

не думаю , что можно сравнивать Паскаль с PHP ) Только зачем ? ) Если есть класс , значит должен быть объект ( экземпляр этого класса ) , он должен быть создан и к нему должен быть доступ. Иначе зачем вообще такой класс нужен ?
Для чего же вообще создано ООП ? ) Для облегчения работы программиста , для улучшения читаемости кода ) Зачем усложнять ? )