Перекрёстные ссылки на object

[XProger]

Имеется желание сделать вот так:

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

TXML = object
  Node : TXML;
end;

Очень хотелось бы реализовать это без классов и побочных PXML, которые в objfpc режиме требуют обязательного указания ^ :)
Delphi позволяет творить подобное с record структурами.
Решаема ли задача при таких условиях? )

[Дож]

А если написать так:

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

TXML = object
  Node1 : TXML;
  Node2 : TXML;
end;


То что должно получится в памяти (в перспективе)?

[XProger]

Оно не скомпилируется. FPC и Delphi этого не допускает. Но в Delphi есть record с методами, с которым это прокатит, хочется аналог в FPC найти.

[carrots]

Имеется желание сделать вот так:

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

TXML = object
  Node : TXML;
end;

Очень хотелось бы реализовать это без классов и побочных PXML, которые в objfpc режиме требуют обязательного указания ^
Delphi позволяет творить подобное с record структурами.
Решаема ли задача при таких условиях? )

Такого типа объект не может быть создан, так как каждый дочерный TXML будет создавать в себе еще себя и так до тех пор пока вся память не кончится.
Так что создавать подобные объекты или рекорды не логично и приведет к зависанию задачи.

[XProger]

Звиняйте что ввёл в заблуждение, но я наткнулся на неприятную особенность:

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

TXML = object
private // или public, не важно
  XML : array of TXML;
end;

Если убрать private, то всё успешно компилируется, в противном случае - "Type 'TXML' is not yet completely defined". Это только в Delphi, в FPC по прежнему компилироваться не хотит :\

[debi12345]

Смотря для чего все это нужно.
Попробуйте трюки с интерфейсами (помню, мне помогло обойти ограничения на циркулярное включение модулей в секциях INTERFACE )

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

type

//----------------
TXMLif = interface
..
end;
//----------------
TXML1 = class(TXMLif)
..
end;
//---------------
TXML2 = class(TXMLif)
private
XML : array of TXML1;
..
end;
//------------------


Со стороны "клиентов" этих классов, TXML1 и TXML2 совместимы по присвоениям и приведениям типа.

[XProger]

Как раз, хочется именно чистых объектов без рюшек классовых )

[debi12345]

Как раз, хочется именно чистых объектов без рюшек классовых )

А что, планируется сверхминиатюрное приложение ? XML-парсинг вроде бы никогда не был легковесным.

[Sergei I. Gorelkin]

Нету в FPC записей с методами, не ищите...

[XProger]

debi12345, ну тут даже не в миниатюрности дело, просто всюду используются чистые объекты и TXML выбивался бы из общего стиля )
Но XML парсер весьма легковесный получился, и не хотелось бы вместо XML['mode']['mesh'].Content городить нечто вроде XML['model']^['mesh']^.Content )

[carrots]

debi12345 не хотелось бы вместо XML['mode']['mesh'].Content городить нечто вроде XML['model']^['mesh']^.Content )

В таком случае почему бы не создать все-таки класс TXML c default пропертью которая будет возвращать TXML.

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

property Nodes[const Name: string]: TXML read GetNode write SetNode;  default;     

По моему тебе такой метод даже больше подходит.
Можно будет писать так XML['mode']['mesh'].Content...
Правда все объекты нужно будет создать и освободить, но я не вижу в этом никаких проблем.

[XProger]

carrots, говорю же, не нужны мне классы, оно сейчас на них и реализовано )

[carrots]

Почему не нужны?

[XProger]

carrots, не вписываются в общую эстетику кода )