wie gesagt, ich hatte das Ding auf die Schnelle runtergehackt.
Natürlich ist das 'UPDATE... reinster Schwachfug...
Es sollte so aussehen:
Delphi-Quellcode:
Begin
With ADOQuery1
Do
Begin
SQL.Text :=
'
Update dbo_Versuchsflaechen_ST t' + #10 +
'
Set ' + SetStr + #10 +
'
WHERE t.Versuchsfl_Bezeichnung = :i_Versuch';
Prepared := True;
// Werte der Paramter :i_F(1 - ...)
For i := 0
To pred(SetCount)
Do
Parameters.ParamByName('
i_F' + IntToStr(i)).Value := SetVals[i];
// Ausführen
ExecSQL;
End;