Parameter funktionieren hier leider nicht.
Man muss sich daher eine Funktion schreiben:
Delphi-Quellcode:
function GetQuotedKommaString(list:TStrings):
string;
begin
Result := '
';
for i:=0
to list.count-1
do
begin
if i =0
then
Result := QuotedStr(list[i])
else
Result := Result + '
,'+QuotedStr(list[i]);
end;
end;
...
Query.Sql.Text := '
Select * from MYTABLE where KEY in (' + GetQuotedKommaString(liste_dey_keys) + '
)';