Варианты — это всегда весело, а?
Я работаю над устаревшим приложением, которое в последний раз использовалось в D2007, чтобы перенести его на Delphi XE.
За это время варианты немного изменились.
Эта строка кода:
if (VarType(Value) = varString) and (Value = '') then
Exit;
вернула True и завершилась в D2007, но не в Delphi XE.
Я изменил это на это:
if VarIsStr(Value) and (VarToStr(Value) = '') then
Exit;
Я не уверен, что это "лучший" способ. У модуля Variants нет специального вызова для этого, и я точно помню, что это было проблемой для людей в прошлом. Однако поиск не выявил ни библиотечной функции, ни какого-либо другого приемлемого способа.
Есть ли «правильный» или лучший способ?