Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
4-1221720642
LonelyWolf
2008-09-18 10:50
2009.11.15
LowLevel mouse hook и "зависание" окна


2-1254386902
NGPOL
2009-10-01 12:48
2009.11.15
DCOM-сервер и "протокол не поддерживается"


2-1254216265
AlexDan
2009-09-29 13:24
2009.11.15
rave reports


2-1254207790
GlowSolnce
2009-09-29 11:03
2009.11.15
Приведение типов


15-1253037180
Вячеслав.К
2009-09-15 21:53
2009.11.15
D2009 - Enter стирает строки в коде?