Einzelnen Beitrag anzeigen

Benutzerbild von Piro
Piro

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

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

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