8

是否有在 TVarRec 和 Variant 值之间转换的标准方法?

我想解析一个“const 数组”并使用这些值来填充 TMSQuery 中的参数。为此,我使用列名列表(从 TMSQuery.KeyFields 生成),并将数组中的值与 KeyFields 中的列名(按位置)匹配,然后使用列名使用 ParamByName 设置相应的参数.

下面的代码是我想出的,但 VarRecToVariant 似乎不是很优雅。有更好的解决方案吗?

  keyFields: TStringList;
    // List of table column names (keyFields.DelimitedText := query.KeyFields;)
    // e.g. Name, Age
  query: TMSQuery;
    // Parametrized query with a parameter for each field in keyFields 
    // SELECT * FROM People WHERE Age=:Age AND Name=:Name

  // If keyValues is ['Bob', 42] the resulting query should be
  // SELECT * FROM People WHERE Age=42 AND Name='Bob'

  procedure Read(keyValues: array of const);
  var
    i: Integer;
    name: string;
    value: Variant;
  begin
    ...
    for i := 0 to keyFields.Count - 1 do
    begin
      name := keyFields[i];
      value := VarRecToVariant(keyValues[i]);
      query.ParamByName(name).Value := value;
    end;
    query.Open
    ...
  end;

  function VarRecToVariant(varRec: TVarRec): Variant;
  begin
    case varRec.VType of
      vtInteger:    result := varRec.VInteger;
      vtBoolean:    result := varRec.VBoolean;
      vtChar:       result := varRec.VChar;
      vtExtended:   result := varRec.VExtended^;
      vtString:     result := varRec.VString^;
      ...
    end;
  end;

笔记:

  • const 数组中的值取决于查询中的参数。调用者知道这些是什么,但使用数组的方法不知道预期的数量或类型。即我不能将方法更改为读取(名称:字符串;年龄:整数)。
  • 参数的使用顺序不一定与在 const 数组中指定的值的顺序相同。在示例中,keyFields 被指定为“Name,Age”,但查询在 Name 之前使用 Age。这意味着 Params[i].Value := keyValues[i] 将不起作用。我认为 VarRecToVariant 仍然需要,我试图避免)。
4

1 回答 1

6

代替

procedure Read(keyValues: array of const); 

procedure Read(keyValues: array of Variant); 

那么您就不需要将 TVarRec 转换为 Variant。

于 2010-09-17T08:58:16.440 回答