Ir al contenido


Foto

[TRUCO DELPHI] Que tipo de dato variant se esta usando actualmente.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 31 agosto 2016 - 12:18


delphi
  1. function GetVariantType(const v: variant): string;
  2. begin
  3. case TVarData(v).vType of
  4. varEmpty: result := 'Empty';
  5. varNull: result := 'Null';
  6. varSmallInt: result := 'SmallInt';
  7. varInteger: result := 'Integer';
  8. varSingle: result := 'Single';
  9. varDouble: result := 'Double';
  10. varCurrency: result := 'Currency';
  11. varDate: result := 'Date';
  12. varOleStr: result := 'OleStr';
  13. varDispatch: result := 'Dispatch';
  14. varError: result := 'Error';
  15. varBoolean: result := 'Boolean';
  16. varVariant: result := 'Variant';
  17. varUnknown: result := 'Unknown';
  18. varByte: result := 'Byte';
  19. varString: result := 'String';
  20. varTypeMask: result := 'TypeMask';
  21. varArray: result := 'Array';
  22. varByRef: result := 'ByRef';
  23. end;
  24. end;

Saludos!


  • 2




IP.Board spam blocked by CleanTalk.