Fehler in SQL-Syntax

[nahpets]

Um solchen Fehlern aus dem Weg zu gehen, nehme ich da immer Stringlisten. Der zusätzliche Schreibaufwand ist deutlich geringer als die Zeit, die man zur Fehlersuche benötigt.

Delphi-Quellcode:

function TDMLSQLite.CreateTblHtml :String; // "ContentMasterData". ContentMasterData.
  var SQLString: TStringList;
begin
  SQLString := TStringList.Create; 
  SQLString.Add('CREATE TABLE tbl_Html(');
  SQLString.Add('  idHtml INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,');
  SQLString.Add('  MenueCSS INTEGER NOT NULL CHECK(MenueCSS>=0),');
  SQLString.Add('  PageCSS INTEGER NOT NULL CHECK(PageCSS>=0),');
  SQLString.Add('  MenueID INTEGER NOT NULL CHECK(MenueID>=0),');
  SQLString.Add('  HTMLPage LONGTEXT NOT NULL,');
  SQLString.Add('  URL VARCHAR(45) NOT NULL,');
  SQLString.Add('  tbl_Javascript_idJavascript INTEGER NOT NULL,');
  SQLString.Add('  tbl_CSS_idCSS INTEGER NOT NULL CHECK(tbl_CSS_idCSS>=0),');
  SQLString.Add('  tblgalerie_Gallery_ID INTEGER NOT NULL CHECK(tblgalerie_Gallery_ID>=0),');
  SQLString.Add('CONSTRAINT fk_tbl_Html_tbl_Javascript1');
  SQLString.Add('  FOREIGN KEY(tbl_Javascript_idJavascript)');
  SQLString.Add('  REFERENCES tbl_Javascript(idJavascript),');
  SQLString.Add('CONSTRAINT fk_tbl_Html_tbl_CSS1');
  SQLString.Add('  FOREIGN KEY(tbl_CSS_idCSS)');
  SQLString.Add('  REFERENCES tbl_CSS(idCSS),');
  SQLString.Add('CONSTRAINT fk_tbl_Html_tblgalerie1');
  SQLString.Add('  FOREIGN KEY(tblgalerie_Gallery_ID)');
  SQLString.Add('  REFERENCES tblgalerie(Gallery_ID))';
  Result := SQLString.Text;
  SQLString.Free;
end;

Und schlechter zu lesen ist es auch nicht.