delphi query in 썸네일형 리스트형 query in 절 만들기 function ListToText(const Args: array of string): string; overload;function ListToText(const Args: array of integer): string; overload; function ListToText(const Args: array of string): string;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;var i: .. 이전 1 다음