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.