Все используемые типы в типе должны быть объявлены в тексте ПЕРРЕД объявлением того самого типа Кто понял что я сморозил ?

Ответить

Да что ему надо это я понял, но вот как это забацать???? Вообще мне надо-то первый случай отделать(с 1м типом), чтоб он указывал сам на себя(но это не бесконечная рекурсия). А во 2м случае как ни крути всёравно error получается

P.S. Я понял чё ты там сморозил.

Ответить

Тогда я не понял что сморозил ты

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

Ответить

Короче проба снимается, пришлось организовать с помощью класса, но хотелось бы найти решение - интересно знать. Но вижу что форумяне этого незнать.

Значит так, объясняю:

НАДО (повторяю - НАДО) ВОТ ТАК -

'''''''''''''''''''''''''''''''''''

1 Private Type TPE

2 Caption As String

3 Group As String

4 PodEl() As TPE 'хрень полная

5 End Type

''''''''''''''''''''''''''''''''''''

Это понятно? Ладно, потом ответишь... Next

Вот попробуй так написать, компиляра тебе в морду даст следующее (переведено) "Здравствуй Вася, пишу тебе из далекого процессора. Вот тут ты неправильно сделал,-указывает на строку 4,-быра сделай по-другому!"

Понял??? т.е. тип "вызывает" сам себя и комп боится что это будет до бесконечности, а это сам знаешь чем грозит. Но прикол в том, что это до бесконечности не будет! N-ый массив PodEl() - будет EMPTY!!!

Смешно? Понятно?

Ответить

Ну и загнул А зачем тебе такой изврат-то хоть ? Ума ни приложу куда это можно "засунуть" :D

Ответить

Военная тайна... Если скажу, то придется тебя убить...

Ответить

Тогда лучше промолчать уж оччень жить хочится

Ответить

Слуш, ну это ж бред полный, сам то хоть пойми что пишешь. Как ты надеешься определить тип на основе самого себя? Все поля в типе должны быть объявлены!!! Ты же хочешь реализовать бесконечную рекурсию, да еще и на основе неопределенного типа.

Вот такая штука пройдет

Private Type TPE

Caption As String

Group As String

End Type

Private Type TPE2

Caption As String

Group As String

PodEl() As TPE

End Type

А насчет

Private Type TPE2

El() As OCX_MenuXP_element_type

End Type

он и будет говорить если OCX_MenuXP_element_type не объявлен!

Ответить

Верно, НО(опять это е@баное НО), по твоему плану: объявил я Per1 as TPE2

И что имею:

per1.group

per1.caption

А вот per1.podel() уже нету!

Ответить

Это почему это?

Option Explicit

Private Type TPE

Caption As String

Group As String

End Type

Private Type TPE2

Caption As String

Group As String

PodEl() As TPE

End Type

Private Sub Form_Load()

Dim Per1 As TPE2

Per1.Caption = "Hello"

Per1.Group = "World"

ReDim Per1.PodEl(10)

Per1.PodEl(5).Caption = "Bye"

Per1.PodEl(3).Group = "Ok"

End Sub

Ответить

Хе,

Не. Я наверно недописал.

Смотри мне надо > Per.Podel().PeodEl().Podel()... хоть до смерти печатай.

А получается как? А вот так > (верно podel есть )

per1.podel().Podel - нет! в типе TPE podel - нет!

Ответить

А, ну это ты размечтался...

Делай массивом. Это тебе не функция, тут рекурсив не прокатит.

Ответить

VB это не поддерживает тема закрыта и что тут флудить. Читал как то в своё время МСДН +)

Ответить