Скачать: CL | DM;

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

← →
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 изобретаешь? ;-)

---

← →
-=SS=- ©   (2004-10-18 16:47) [8]

> begin...end ©   (18.10.04 16:38) [7]
Да begin...end прав не изобретай велосипед.

---

← →
VMcL ©   (2004-10-18 17:03) [9]

>>begin...end ©  (18.10.04 16:38) [7]

Тогда уж TClassList.

---

← →
Ega23 ©   (2004-10-18 17:05) [10]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.024 c