Форум: "Начинающим";
Текущий архив: 2009.11.15;
Скачать: [xml.tar.bz2];
ВнизКак задать тип элемента переданного в 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c