Форум: "Начинающим";
Текущий архив: 2009.12.20;
Скачать: [xml.tar.bz2];
Вниз
Проблема с приведением типов Найти похожие ветки
← →
harisma © (2009-11-03 11:25) [0]Портирую проект из Делфи 5 в Делфи 7.
Все пока нормально, только вот такой код, работавший Делфи 5 не компилится в Делфи 7:
function SomeProcName(Index; Integer): TVarData;
var
P: Pointer;
begin
P := GetAt(Index);
if P = nil then
Result := TVarData(Unassigned) <-- тут возникает ошибка
else
Result := TVarData(P^);
end;
компилятор ругается: "Invalid typecast"
Что делать? Как код изменить?
← →
Сергей М. © (2009-11-03 11:32) [1]TVarData(EmptyParam)
← →
harisma © (2009-11-03 11:49) [2]Спасибо. Помогло :)
← →
Сергей М. © (2009-11-03 11:58) [3]Еще бы ты понял почему это помогло - тогда бы совсем захорошело)
← →
harisma © (2009-11-03 12:42) [4]
> почему это помогло
Я посмотрел в модулях System и Variants - и все понял. Просто не знал о существовании EmptyParam. Так что свое ехидство оставь при себе.
← →
Сергей М. © (2009-11-03 12:48) [5]
> свое ехидство оставь при себе
Какое тут ехидство ?
В D7 Unassigned - это функция, а в D5, вероятно, это была стат.переменная.
А на месте EmptyParam в дан.случае может фигурировать любая неинициализированная переменная вар.типа.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.12.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c
