Brandon
2012-05-28 14:17:38
Why can't I pass a PointArray to a Variant?
The below throws exceptions after the else statement.. If the TPA has a length > 1 then it throws exceptions wherever it was called.. I thought TVariants can accept any type :S
The below throws exceptions after the else statement.. If the TPA has a length > 1 then it throws exceptions wherever it was called.. I thought TVariants can accept any type :S
Function Nulled(What: Variant): Boolean;
begin
case varType(What) of
varInteger, varDouble, varInt64, varLongWord,
varShortInt, varWord, varSmallInt, varSingle: Result:= (What < 1);
else
Result:= (Length(What) < 1);
end;
end;