From 103d6a39e3653e12a769950725cd9d56e65cabba Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Mon, 20 Jan 2014 01:14:56 +0000
Subject: [PATCH] LCL, added dbgs(variant)

git-svn-id: trunk@43774 -
---
 lcl/lclproc.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lcl/lclproc.pas b/lcl/lclproc.pas
index 1d9da56479..80af051573 100644
--- a/lcl/lclproc.pas
+++ b/lcl/lclproc.pas
@@ -294,6 +294,7 @@ function DbgsVKCode(c: word): string;
 function DbgS(const ASize: TSize): string; overload; inline;
 function DbgS(const ATM: TTextMetric): string; overload;
 function DbgS(const AScrollInfo: TScrollInfo): string; overload;
+function DbgS(const AVariant: Variant): string; overload;
 
 procedure DbgOutThreadLog(const Msg: string); overload;
 procedure DebuglnThreadLog(const Msg: string); overload;
@@ -2312,6 +2313,17 @@ begin
   if Result = '' then Result := '(no scrollinfo)';
 end;
 
+function DbgS(const AVariant: Variant): string;
+begin
+  if TVarData(AVariant).VType = varEmpty then
+    result := '<empty>'
+  else
+  if TVarData(AVariant).vtype = varNull then
+    result := '<null>'
+  else
+    result := AVariant;
+end;
+
 procedure DbgOutThreadLog(const Msg: string);
 var
   PID: PtrInt;