Есть ли стандартный способ преобразования между значениями TVarRec и Variant?
Я хочу проанализировать «массив констант» и использовать значения для заполнения параметров в 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;
Примечания: