also das ist es wenn du das meintest....
Delphi-Quellcode:
...
With ADOQuery1
Do
Begin
SQL.Text :=
'
Update dbo_VFL_VERZ_TEMP t' + #10 +
'
Set ' + SetStr + #10 +
'
WHERE t.Bearbeiter = :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];
// Hier
Parameters.ParamByName('
i_Versuch').Value := TB_Bearbeiter.Text;
// Ausführen
ExecSQL;
...