Delphi：如何将列表作为参数传递给SQL查询？

AFAIK，这是不可能直接。

您必须将列表转换为纯文本的SQL列表。

例如：

function ListToText(const Args: array of string): string; overload;var i: integer;begin  result := '(';  for i := 0 to high(Args) do     result := result+QuotedStr(Args[i])+',';  result[length(result)] := ')';end;function ListToText(const Args: array of integer): string; overload;var i: integer;begin  result := '(';  for i := 0 to high(Args) do     result := result+IntToStr(Args[i])+',';  result[length(result)] := ')';end;

照这样使用：

SQL.Text := 'select * from myTable where intKey in '+ListToText([1,2,3]);SQL.Text := 'select * from myTable where stringKey in '+ListToText(['a','b','c']);