String-Literale

[uligerhardt]

Du könntest es auch so machen:

Delphi-Quellcode:

procedure PutKundeObj(AOwner: TComponent; KundenObjData: TKundenObj);
const
  cStmt = 'INSERT INTO KundenObj (mandantenid, objnr, kundnr, typnr, typ,' +
    ' umsatz1, umsatz2, umsatz3, umsatz4, umsatz5, umsatz6, umsatz7, umsatz8, umsatz9, umsatz10, umsatz11, umsatz12, umsatz13, umsatz4,' +
    ' ertrag1, ertrag2, ertrag3, ertrag4, ertrag5, ertrag6, ertrag7, ertrag8, ertrag9, ertrag10, ertrag11, ertrag12, ertrag13, ertrag4,' +
    ' anzahl1, anzahl2, anzahl3, anzahl4, anzahl5, anzahl6, anzahl7, anzahl8, anzahl9, anzahl10, anzahl11, anzahl12, anzahl13, anzahl4) VALUES ' +
    '(''%s'',''%s'',''%s'',''%s'',%i,';
var
  Stmt: string;
begin
  Stmt := UTF8Encode(Format(cStmt,
    [KundenObjData.MandantenId, KundenObjData.ObjNr, KundenObjData.KundNr,
     KundenObjData.TypNr, KundenObjData.Typ]));
end;

Das ist IMHO auch lesbarer. Bei 4 Hochkommas hintereinander wird mir schwummerig.

Oder erzeug den ersten Teil des Strings mit 14x "umsatzN", "ertragN", "anzahlN" in einer Schleife.

Uli.