Variant - Rückgabewert überprüfen aber wie?

[Piro]

Ich habe folgenden Code, der mir eine Wert des Types Variant zurückgibt. Ich möchte überprüfen, ob er leer ist oder etwas drin steht.

Delphi-Quellcode:

...
var
 varTemp : Variant;
 strTemp : String;
begin
...
 varTemp := vOut.DefaultIPGateway;
 if varTemp <> NULL then
   strTemp := VarToStr(vOut.DefaultIPGateway[0])
 else
   strTemp := '';
...

Folgende Rückgabewerte für varTemp erhalte ich.

• Null
• Variant Array of Variant

Wenn der Rückgabewert Null ist, funktioniert meine Abfrage. Wenn der Rückgabewert aber Variant Array of Variant ist, kommt die Fehlermeldung "Ungültige Variantenoperation". Wie könnte bzw. muss man die Abfrage verändern damit es klappt?

Vielen Dank im Voraus. Sven

[Piro]

So, ich habe jetzt eine Lösung:

Delphi-Quellcode:

{ 1    = Null                 }
{ 8    = Einfacher Wert       }
{ 8204 = Mehrere Werte (Array)}
varTemp := vartype(vOut.DefaultIPGateway);
Case varTemp of
  1 : ANetwork[Counter].gw := '';
else
  ANetwork[Counter].gw := VarToStr(vOut.DefaultIPGateway[0]);
end;

[fragile]

Vielleicht wäre es auch mit dem "is" Operator gegangen ?

[nicodex]

Zitat:

Zitat von daywalker299

So, ich habe jetzt eine Lösung:

Delphi-Quellcode:

{ 1    = Null                 }
{ 8    = Einfacher Wert       }
{ 8204 = Mehrere Werte (Array)}
varTemp := vartype(vOut.DefaultIPGateway);
Case varTemp of
  1 : ANetwork[Counter].gw := '';
else
  ANetwork[Counter].gw := VarToStr(vOut.DefaultIPGateway[0]);
end;

1 -> (System.)varNull

Delphi-Quellcode:

if VarIsNull(vOut.DefaultIPGateway) then
  ANetwork[Counter].gw := ''
else
  ANetwork[Counter].gw := VarToStr(vOut.DefaultIPGateway[0]);

Erscheint mir lesbarer/verständlicher.

edit: bevor man auf das erste Element des Variants als Array zu greift, sollte man "vielleicht" prüfen, ob es a) ein Array ist und b) es ein Element 0 gibt (VarArrayDimCount, VarArrayHighBound).

[Piro]

Danke für den Tipp. Deine Methode ist übersichtlicher.

Gruß, Sven