Interessant wäre es zu sehen, wie das Insert-Statement aussieht, im obigen Beispiel sieht man ja nur die Parameterbefüllung.
Ließe die sich eventuell etwas vereinfachen?
Delphi-Quellcode:
if feld = 'LG_BMGB' then begin
flgpl_1_insert.parambyname('LG_BMGB').asstring := myvalue;
flgpl_1_insert.parambyname('LG_BMGB_ORG').asstring := myvalue;
end else
if feld = 'LG_BMGV' then begin
flgpl_1_insert.parambyname('LG_BMGV').asstring := myvalue;
flgpl_1_insert.parambyname('LG_BMGV_ORG').asstring := myvalue;
end else
if feld = 'LG_EKPR' then begin
flgpl_1_insert.parambyname('LG_EKPR').asstring := myvalue;
flgpl_1_insert.parambyname('LG_EKPR_ORG').asstring := myvalue;
end else begin
flgpl_1_insert.parambyname(feld).asstring := myvalue;
end;