XE2 шаблоны и хитрая задачка.

[var-alex]

Задача простейшая. Делаю набор (хотя это громко сказано) классов для реализации задач на графах. Но в процессе реализации наткнулся на одну интересную штуку, которую так и не понял можно ли вообще сделать:

Получается так:

  TCustomTemlateGraph = class;
  TCustomTemplateNode = class;
  TCustomTemplateConnect = class;

  TCustomTemlateGraph = class

  end;

  TCustomTemplateNode = class

  end;

  TCustomTemplateConnect = class

  end;

  TTemplateConnect<O> = class(TCustomTemplateConnect)
  private
    fData:O;
  public
    property Data:O read fData write fData;
  end;

  TTemplateNode<O> = class(TCustomTemplateNode)
  private
    fData:O;
  public
    property Data:O read fData write fData;
  end;

  TTemplateGraph<N:TCustomTemplateNode; C:TCustomTemplateConnect> = class(TCustomTemlateGraph)
  public
    function NodeByData(<А вот тут то самое хитрое>):TCustomTemplateNode;
  end;

У класса графа, надо сделать метод, который будет искать нужный узел по связным данным, то есть тем, которые храняться в свойстве Data у узла. НО, тип данных свойства Data заранее не известен, в этом и весь смысл. Походу задача решения не имеет, и сделать такое не получится, но на всяких случай я решил проконсультироваться у сообщества.

p.s. да, понятно что собственно свойство Data можно внести у наследника и им пользоваться. Но вводится оно для более простой адаптации к существующему коду, да и подобные конструкции могут понадобиться в будущем, поэтому и интересуюсь.

[JUDAS]

Автор, прочитай эту тему, может что-то себе и прикрутишь в код
http://programmersforum.ru/showthread.php?t=280619

[var-alex]

Не, там совсем не то, что надо. Только жалко что та тема уже закрыта, я вроде как решение знаю, которое там подойдет автору. Почти они до него дошли, но не до конца.

[Serge_Bliznykov]

Только жалко что та тема уже закрыта, я вроде как решение знаю, которое там подойдет автору

могу открыть ту тему. Надо?

[var-alex]

Автор забил, так что наверное смысла нету.

[veniside]

Походу задача решения не имеет

для начала, задача не имеет четкого определения.

сделать такое не получится

еще бы понять, что же "такое" вам надо сделать )

Ну вот, например, этот код, даёт какие-то мысли?

type
  TNode = class
    Next: TNode;
  end;

  TGraph = class
    Root: TNode;
    function Add(N: TNode): TGraph;
  end;

  GNode<O> = class(TNode)
  public
    Data: O;
    constructor Create(value: O);
    function equal(value: O): boolean;
  end;

  GGraph<O; N: GNode<O>> = class(TGraph)
  public
    function NodeByData(value: O) : TNode;
  end;


{ TGraph }

function TGraph.Add(N: TNode): TGraph;
begin
  // TODO: add node to graph
  exit(self);
end;

{ GNode<O> }

constructor GNode<O>.Create(value: O);
begin
  inherited Create();

  Data := value;
end;

function GNode<O>.equal(value: O): boolean;
begin
  //  result := (Data = value); -- TODO
end;


{ TGraph<O, N> }

function GGraph<O, N>.NodeByData(value: O): TNode;
var
  node: TNode;
begin
  node := Root;
  while (node <> nil) do
  begin
    {B-}
    if ((node is N) and (node as N).equal(value)) then
      exit(node);

    node := node.Next;  // OK, it's not a tree here, but who said linked list could not be a tree some day
  end;
end;

var
  g: GGraph<Integer, GNode<Integer>>;
  n: TNode;
begin
  g := GGraph<Integer, GNode<Integer>>.Create();
  g.add(GNode<String>.Create('Hi')).add(GNode<Byte>.Create(123)).add(GNode<Boolean>.Create(True));

  n := g.NodeByData(123);
  if (n <> nil) then
    writeln('it works!');
end.

зы. пробовал в XE7, че там будет с этим кодом в XE2, неведомо.