Функции ключевых слов в Delphi2010

[Warn]

class procedure Destroy(AObject: TObject); overload; static;

что значит static в конце? class procedure и так указывает на то что метод статический для всех инстансов класса, а static тут зачем? или одно без другого не бывает?


Потом вот это как понимать?

TArray<T> = array of T;

[Warn]

Разбираю шаблонные классы и статик методы.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
  TAny<T> = class
  private
  	class var CountOfTAny:Cardinal;
  	var x : T;
  public
    class function getCountOfTAny():Cardinal;static;
    function Get():T;
    procedure Setnew(n:T);
    constructor Create();
    destructor Destroy();
  end;

 function TAny<T>.get():T;
 begin
   result:=x;
 end;
 procedure TAny<T>.setnew(n:T);
 begin
   x:=n;
 end;

 constructor TAny<T>.Create();
 begin
   inc(CountOfTAny);
 end;

 destructor TAny<T>.Destroy();
 begin
 	dec(CountOfTAny);
 end;

 class function TAny<T>.getCountOfTAny():Cardinal;
 begin
   result := CountOfTAny;
 end;


Var
  ClassOfInteger:TAny<Integer>;
  ClassOfFloat:TAny<Single>;
  ClassofByte:TAny<Byte>;
begin
ClassOfInteger := TAny<Integer>.Create();
ClassOfFloat := TAny<Single>.Create();
ClassOfByte :=TAny<Byte>.Create();

ClassOfInteger.setnew(1);
ClassOfFloat.setnew(1.0);
ClassOfByte.Setnew(255);

Writeln(ClassOfInteger.x);
Writeln(ClassOfFloat.x);
Writeln(ClassOfByte.x);

Writeln(ClassOfInteger.getCountOfTAny());

readln;

end.

Вопросы почему getCountOfTAny возвращает 1 когда по идее должно быть 3 ?
Как выглядит функция скажем ShowValue для TAny<любого типа> ???
procedure ShowValue (var v:TAny<T>) - не работает.

[phomm]

Используем дженерики http://keeper89.blogspot.com/2011/07/delphi.html

[GunSmoker]

что значит static в конце? class procedure и так указывает на то что метод статический для всех инстансов класса, а static тут зачем? или одно без другого не бывает?

Классовый - ещё не означает "статический".

См. http://www.gunsmoker.ru/2008/12/static-delphi.html

Вопросы почему getCountOfTAny возвращает 1 когда по идее должно быть 3 ?

Потому что ты три раза инстанциировал генерик. Несложно понять, что TAny<Integer> и TAny<Single> - это разные классы. А раз это разные классы, то CountOfTAny у них свой у каждого. Собственно, class var так и переводится - классовая переменная, т.е. она своя у каждого класса. Хочешь общую переменную у двух и более классов? Используй глобальную переменную (в implementation).

[Warn]

Спасибо за разъяснения.