Delphi-Quellcode:
s := '
';
for i = 0
to Stringlist.Count - 1
do
begin
if s <> '
'
then
s := s + '
,';
s := s + StringList[i];
s := '
('+s+'
)';
end;
query.SQL.Text := '
SELECT irgendwas FROM irgendwo WHERE a.Adressid in '+s;
Wenn du eine andere Tabelle hast von der die Werte kommen brauchst du natürlich keine StringList dazwischen:
Delphi-Quellcode:
s := '
';
query.First;
while not query.Eof
do
begin
if s <> '
'
then
s := s + '
,';
s := s +
query.FieldByName('
einFeldName').AsString;
// auch integer können einfach als string gelesen werden.
s := '
('+s+'
)';
query.Next;
end;
query.SQL.Text := '
SELECT irgendwas FROM irgendwo WHERE a.Adressid in '+s;