Текущий архив: 2009.11.15;
Скачать: CL | DM;

Вниз

Как задать тип элемента переданного в array of const   Найти похожие ветки 

← →
@!!ex ©   (2009-09-30 17:16) [0]

Передаю так:
X:integer;
Y:Pointer;
[X,Y]
Y тоже определяется как integer.

---

← →
clickmaker ©   (2009-09-30 17:22) [1]

> Y тоже определяется как integer.

то есть?

---

← →
@!!ex ©   (2009-09-30 17:25) [2]

for i := 0 to Length(Params) - 1 do
 case Params[i].VType of
   vtInteger:; <-Срабатывает и на Pointer, и на Class и на все остальное
   vtPointer:; <-Не срабатывает никогда
   vtClass:;  <-Не срабатывает никогда
 end;

---

← →
Медвежонок Пятачок ©   (2009-09-30 17:30) [3]

Y тоже определяется как integer.

А не врешь?

procedure Test(A : array of const);
begin
ShowMessage(IntToStr(A[0].VType) + " " + IntToStr(A[1].VType));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Test([1,Pointer(1)]);
end;

---

← →
Медвежонок Пятачок ©   (2009-09-30 17:32) [4]

<-Не срабатывает никогда

Потому что твой код вызова написан так, что передается не пойнтер а интежер

---

← →
@!!ex ©   (2009-09-30 17:33) [5]

> [3] Медвежонок Пятачок ©   (30.09.09 17:30)
> Test([1,Pointer(1)]);

Хм. Срабатывает. И на POinter и на Class...

---

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

Текущий архив: 2009.11.15;
Скачать: CL | DM;

Наверх

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