Developing.ru

Ура! Вы меня снова выручили! :)

var
  a: TC;
  b: PC;
begin
  a := b^;
  b := @a;
end;

function countThis(aTc: TC): real; overload;
begin
  ... текст функции
end;
function countThis(aTc: PC): readl overload;
begin
  result := countThis(aTc^);
end;

это не одно и то же.
PC - это ссылка на TC ;)

приведение:
[code]var
a: TC;
b: PC;
begin
a := b^;
b := @a;
end;[/code]

впринципе... пожно объявить перезагруженные функции для эмуляции:

[code]function countThis(aTc: TC): real; overload;
begin
... текст функции
end;
function countThis(aTc: PC): readl overload;
begin
result := countThis(aTc^);
end;[/code]

;)

  type  PC = ^TC;
  TC = record
  a: integer;
  m: array of PC;
end;

Продолжение вопроса.

Объявил вот это:
[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, но наверняка есть более простой способ. Может, кто-то знает?

Спасибо, это то, что нужно!

[syntax="delphi"]type
PC = ^TC;
TC = record
a: integer;
m: array of PC;
end;[/syntax]

Забыл, как объявить то, что не выходит объявить так:

Tc = record
a: integer;
m: array of Tc;
end;