Einzelnen Beitrag anzeigen

Benutzerbild von Piro
Piro

Registriert seit: 14. Jul 2003
Ort: Flintbek
810 Beiträge
 
Delphi XE2 Professional
 
#1

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

  Alt 17. Dez 2008, 10:08
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
  Mit Zitat antworten Zitat