Главная страница
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.01 c
1-1224008956
DmitriyG.
2008-10-14 22:29
2009.11.15
Создание большого XML


1-1224835215
@!!ex
2008-10-24 12:00
2009.11.15
BMP выравнивание относительно чего?


1-1223964035
jiny
2008-10-14 10:00
2009.11.15
TNTForm ; TWideCaption- не воспринимает казахский язык


15-1253260856
Empleado
2009-09-18 12:00
2009.11.15
О веб сайтах


15-1252960212
Юрий
2009-09-15 00:30
2009.11.15
С днем рождения ! 15 сентября 2009 вторник