【原创】Aarry of Const 与 Variant研究

       Aarry of Const 声明的语法虽然有点怪异，但相信大家都使用过Format函数。Aarry of Const本质就是Array of TVarRec，是一种优化过的变体数组。
       为何要使用 Aarry of Const呢？由于 Aarry of Const是一种优化过的变体数组，我们让她来做传入参数，相当灵活和方便。
       试想一下，如果三层客户端接口为：OpenQuery([ParamName1,ParamValue1,ParamName2......])，客户端接口函数会显得非常简洁和一目了然，可以接受动态的参数名和参数值。当然，在传入参数，你还可以使用TParams做传入参数，处理起来也是很灵活和方便。但我个人不太喜欢创建对象方式的传入参数。你还可以用字符串做传入参数，然后再解析，这种方式不是很严谨，而且敲代码的人会很累和容易导致人为录入错误。
       对比Aarry of Const数据类型，我们发现，支持vtInteger、vtBoolean、vtChar、vtExtended、vtString、vtWideString、vtPChar、vtAnsiString、vtObject、vtClass、vtCurrency、vtVariant、vtInt64等类型，Variant类型与Aarry of Const数据类型有一点不同，Variant类型是一种简单类型，原则上是自动释放内存的数据类型，不能接受对象，因此没有TObject和TClass类型。Aarry of Const数据类型也没有TDateTime类型，TDateTime本质就是浮点型，如果处理TDateTime不好，很容易将TDateTime当成浮点数处理。所幸的是，Aarry of Const数据类型也支持Variant类型，而Variant类型包容了TDateTime。
         约定胜于配置。对于传入TOjbects类型，我们一般默认为TStream类型，如果是非TStream类型，就做失败处理。你也想传入TField类型，将其转换为Stream，然后到中间件那边，再序列化为TField。我个人认为，TField本身附加了太多的属性和数据，这样的效率会很低，是C/S思想的约束。中间件与客户端的交互，本质就是简单数据的交互而已。简单的东西往往是最高效。
//下面的函数是TVarRec与Variant转换，其中细节部分，你可以根据需要自定义取舍。
function ValueFromVarRec(VarRec: TVarRec): Variant;
var
Value: Variant;
begin
with VarRec do
     case VType of
       vtInteger: Result := VInteger;
       vtBoolean: Result := VBoolean;
       vtChar: Result := VChar;
       vtExtended: Result := VExtended^;
       vtString: Result := VString^;
       vtWideString : Result := widestring(VWideString^);
       vtPChar: Result := VPChar^;
       vtAnsiString: Result := string(VAnsiString);
       vtObject:
         begin
          
           if VarSameValue(VObject.ClassName,'TMemoryStream') then
             StreamToVariant(TMemoryStream(VObject),Result)
           else
             raise Exception.CreateFmt('不支持对象类型:%s！请将其转换为 varray of byte ', [VObject.ClassName]);
         end;
       vtClass:
         begin
           raise Exception.CreateFmt('不支持Class类型:%s！ ', ['vtClass']);
         end;
       vtCurrency: Result := CurrToStr(VCurrency^);
       vtVariant:
         begin
           Value := VVariant^;
           if VarType(Value) = varDate then
             Result := VarToDateTime(Value)
           else if VarIsArray(Value) then //流类型
             Result := Value
           else
             Result := VarToStrDef(Value, '');
         end;
       vtInt64: Result := VInt64^;
     else
       Result := Null;
     end;
end;
假如参数为 const Args:Array of Const
只需循环取数即可：
for i := Low(Args) to High(Args) do
    Value := ValueFromVarRec(Args )
    ......................

对于TDateTime类型，可直接传入，编译器会很聪明的将TDateTime改为Variant类型，如果你不放心
可以使用 VariantFromDateTime(Now())传入。

        
        



        







        
          
            
            评论这张
          
        


          
            
              
            
            转发至微博