type
PType=^TType;
...
function GetPointerToType:PType;
возвращение функцией типизированного указателя
Есть класс
Type TElement = class
suc: ^TElement;
procedure Print;virtual; {}
constructor Init;
destructor Destroy;
end;
надо, чтобы функция-метод другого класса возвращала
указатель на этот класс
Type TQueue = class
public
...
function First: ^TElement;
end;
...
function First:^TElement;
begin
...
end;
компилятор ругается на объявление function First: ^TElement;
Класс TElement описан в том же unit выше
Type TElement = class
suc: ^TElement;
procedure Print;virtual; {}
constructor Init;
destructor Destroy;
end;
надо, чтобы функция-метод другого класса возвращала
указатель на этот класс
Type TQueue = class
public
...
function First: ^TElement;
end;
...
function First:^TElement;
begin
...
end;
компилятор ругается на объявление function First: ^TElement;
Класс TElement описан в том же unit выше
А зачем вообще так?
Цитата: George
А зачем вообще так?
Совершенно непонятно, зачем так делать. Разве что надо передать указатель на указатель?
А вообще, на такие вещи компилятор ругается еще со времен ТП. Если функция должна вернуть указатель, то объявляться он должен так:
Код: