是否有在 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 仍然需要,我试图避免)。