Продолжение вопроса.
Объявил вот это:
Код: Выделить всё
type PC = ^TC;
TC = record
a: integer;
m: array of PC;
end;
Кроме того, есть рекурсивная функция
countThis(aTc: Tc): real;
Она вызывает себя, передавая в качестве аргумента элементы массива m.
Однако, при компиляции возникает ошибка: Incompartible types: 'Tc' and 'Pc'
Как бы заставить функцию принимать оба типа аргументов? Ведь в сущности, они одно и то же.
Пока есть идея (громоздкая) создать дополнительную функцию, чтоб переводила Pc в Tc, но наверняка есть более простой способ. Может, кто-то знает?
Продолжение вопроса.
Объявил вот это:
[code="Delphi"]
type PC = ^TC;
TC = record
a: integer;
m: array of PC;
end;[/code]
Кроме того, есть рекурсивная функция
countThis(aTc: Tc): real;
Она вызывает себя, передавая в качестве аргумента элементы массива m.
Однако, при компиляции возникает ошибка: Incompartible types: 'Tc' and 'Pc'
Как бы заставить функцию принимать оба типа аргументов? Ведь в сущности, они одно и то же.
Пока есть идея (громоздкая) создать дополнительную функцию, чтоб переводила Pc в Tc, но наверняка есть более простой способ. Может, кто-то знает?