Возвращаемое значение

← →
MikePol (2004-10-18 16:22) [0]

Класс динамического массива, хранящий указатели на объекты этого класса, с методом добавления элемента.
type
TMyClass=class;
PMyClass= ^TMyClass;

TMyClass=class
........
X:array of PMyClass;
procedure Add(const Tmp:PMyClass);
end;

procedure TMyClass.Add(const Tmp:PMyClass)
begin
inc(FSize);
SetLength(X,size);
X[size-1]:=Tmp;
end;

Вызов :
Obj:TMyClass;
Obj.Add(PMyClass(TMyClass.Create));

Djghjc Obj:PMyClass;
Вопрос : Как сделать так чтобы это заработало ?

← →
begin...end © (2004-10-18 16:28) [1]

А что, собственно, не работает?

← →
MikePol (2004-10-18 16:31) [2]

Указатели не валидные почему то ..

← →
Amoeba © (2004-10-18 16:31) [3]

> type
> TMyClass=class;
> PMyClass= ^TMyClass;

А зачем еще нужен указатель на указатель? TMyClass - уже указатель. Так что для начала убери к чертям собачьим
PMyClass= ^TMyClass;

← →
begin...end © (2004-10-18 16:33) [4]

> [2] MikePol (18.10.04 16:31)
> Указатели не валидные почему то ..

Как ты пришёл к такому выводу?

← →
MikePol (2004-10-18 16:34) [5]

TMyClass указатель ?
Тогда я перепарился ... Извините :)

← →
-=SS=- © (2004-10-18 16:34) [6]

А я бы лутше использывал вместо SetLength() GetMem(Count_Element,sizeof(TMyClass))

← →
begin...end © (2004-10-18 16:38) [7]

> [5] MikePol (18.10.04 16:34)

Ты там случайно не TObjectList изобретаешь? ;-)

Obj:TMyClass; Obj.Add(PMyClass(TMyClass.Create));

А Obj ты до этого создал?

Возвращаемое значение Найти похожие ветки