Warum gibt es hier einen VarCastError?

[himitsu]

Sagen wir es mal so: Ich fand in den anderen Funktionen (noch) nichts, was für diesen Fehler verantwortlich sein könnte, also blieb erstmal nur noch das übrig.



PS: Unassigned = Clear
und Empty ist auch im Clear mit enthalten

Entsprechend bleibt funktionell kaum noch etwas übrig.

Delphi-Quellcode:

function VarToIntDef(const V: Variant; const ADefault: Integer): Integer;
begin
  if VarIsOrdinal(V) {and not VarIsEmptyOrNull(V)} then  // ist es Ordinal, ist es gleichzeitig niemals das Andere
    Result := V  //:= _VarToInteger(V)  // größer signed 32-Bit knallt es 
  else
    Result := ADefault;
end; 

{function VarIsEmptyOrNull(const Value: Variant): Boolean;
begin
  Result := VarIsClear(Value) or VarIsNull(Value);
  if not Result and VarIsStr(Value) then
    Result := Value = '';
end;}

VarIsEmptyOrNull hat auf's Ergebnis keinen Einfluss,
aber es wird dennoch ausgeführt, wenn VarIsOrdinal zutrifft, wobei es dann immer False lieft.
(und and not False , bzw. and True ändert dann nichts mehr)

VarCompareValue und VarIsEmpty werden immer nur sinnlos ausgeführt.
Sie liefern immer nur True, wenn das VarIsClear bereits gemacht hatte und dann werden sie vom OR nicht mehr ausgeführt.
Alles in VarIsEmptyOrNull wird auch nur ausgefüjrt, wenn VarIsOrdinal True sagte, wo dann alles im VarIsEmptyOrNull nur noch False liefern kann.
(es wird also alles zwar ausgeführt, aber sinnlos, da es das Endergebnis nicht beeinflussen kann, weil es ja immer and True sein wird, sobald es ausgeführt wird)

Was am Ende übrig bleibt, kann eigentlich keinen CastError auslösen (abgesehn von eventuell dem, was sinnlos enthalten war)
und übrig bleibt noch ein Fehler, wenn es größer als 32 Bit wird. (ERangeError)

Du hast also viel Code, der eigentlich nichts macht, da er keine Auswirkung auf's Ergebnis hat, außer eventuell Fehler zu verursachen.

Lösung:

Delphi-Quellcode:

function VarToIntDef(const V: Variant; const ADefault: Integer): Integer;
begin
  if VarIsType(V, [varSmallInt, varInteger, varBoolean, varShortInt, varByte, varWord]) then  // entspricht VarIsOrdinal bis Int32 (signed 32-Bit)
    Result := V
  {else if VarIsStr(V) then
    Result := StrToIntDef(V, ADefault)}
  else
    Result := ADefault;
end;

Allerdings fehlt bei deinem Code, z.B. die Behandlung von nummerischen Strings, welche ich oben noch heimlich mit eingefügt hab.