摘要:
function ParamsToVariant(Params: TParams; Macro, Compatible: Boolean): Variant;var I: Integer; Tmp: Variant;begin if (Params.Count = 0) then Result := Null else begin Result := VarArrayCreate([0, Params.Count - 1], varVariant); for I := 0 to Params.Count - 1 do with Params[I] do begin if Compatible 阅读全文