Как задать тип элемента переданного в 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;

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

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

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