Ich habe die folgende Funktion:
Delphi-Quellcode:
function VarToIntDef(const V: Variant; const ADefault: Integer): Integer;
begin
if VarIsOrdinal(V) and not VarIsEmptyOrNull(V) then
Result := V
else
Result := ADefault;
end;
Die hat bei einen Kunden einen VarCastError (@VarToInteger) ausgelößt. Wo genau und warum wurde nicht übermittelt und ich weiß auch nicht welcher Kunde.
Wo liegt der Fehler? Auf was müsste ich V setzen um den VarCastError auszulösen?