static-член

[compiler]

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

[Attid]

[офтоп]
ну вот парнуху уже обсуждают на любимом форуме, дожились.

ЗЫ пятница все-таки
[/офтоп]

[shade]

А мне вот тоже интересно, вроде fpc поддерживает статик, а в руководстве о нем не слова.

метод тыка не принес результата:

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

type
  t = class
    procedure sayhello; static;
  end;

procedure t.sayhello;
begin
  writeln('hello world');
end;

begin
  t.sayhello;
end.

спотыкается на t.sayhello;
Only class methods can be referred with class referrences

Сдается мне, что в fpc нет нормального статика (в том виде как в С++), под статиком понимается обычный невиртуальный/нединамический метод...

[alexs]

спотыкается на t.sayhello;

Only class methods can be referred with class referrences

номальным языком сказано же - необходимо использовать дерективу class - она позволяет вызывать метод объекта без создания самого объекта

[shade]

Сказано, то сказано,
но это будет не статик-функция (как С++), а класс-функция - отличие в одном неявно передаваемом параметре Self:

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

{$mode objfpc}

type
  fooclass = class of foo;
 
  foo = class
    public
      class procedure sayhello; virtual;
  end;
 
  bar = class (foo)
  end;
 
  banana = class (bar)
    public
      class procedure sayhello; override;
  end;

class procedure foo.sayhello;
begin
  writeln(Self.ClassName, ' says hello');
end;

class procedure banana.sayhello;
begin
  writeln(Self.ClassName, ' does not says hello');
end;

procedure hello(AClass: fooclass);
begin
  AClass.sayhello;
end;

begin
  hello(foo);
  hello(bar);
  hello(banana);
end.

[compiler]

а в руководстве о нем не слова.

есть о дерективе {$STATIC ON} :), но не много... вроде бы уже разобрался, всем спасибо.

[Replicator]

А разве любая функция, в которой не используется self (явно или неявно) не может быть вызвана, как статическая?