Man sollte meiner Erfahrung mit
ADO-Komponenten nach, weiß nicht ob's auch anderswo besser geht, so wie bei nahpets Beispiel zwei Anweisungen getrennt hintereinander ausführen. Theoretisch könnte man ja auch alle Anweisungen mit Semikolon getrennt hintereinanderschreiben und das dann nur ein mal Ausführen, aber das klappt mMn nicht.
Man könnte allerdings das ganze Schleifengerafel weglassen zu:
Delphi-Quellcode:
'...where datenbank_alt.Tabelle20.reihenfolge in (5,6,7,8,9,10)'
//oder
'...where datenbank_alt.Tabelle20.reihenfolge between 5 and 10'
//oder wenn's was dynamisches ist:
'...where datenbank_alt.Tabelle20.reihenfolge in ('+SQL_Liste+')'
function SQL_Liste:String;
var z : integer;
begin
for z:=5 to 10 do
begin
if Result<>'' then Result:=Result+','
Result:=Result+IntToStr(z)
end;
end;