Hi zusammen
Von Workbench habe ich Scripts wie diese exportiert:
Delphi-Quellcode:
CREATE TABLE "PdfOfficerDB"."tblAuthor"("AuthorID" INTEGER PRIMARY KEY NOT NULL,
"Name" VARCHAR(45) NOT NULL,
"Vorname" VARCHAR(45) NOT NULL,
"tblUser_idTblUser" INTEGER NOT NULL,
CONSTRAINT "fk_tblAuthor_tblUser1"
FOREIGN KEY("tblUser_idTblUser")
REFERENCES "tblUser"("idTblUser"));
Und solches soll nun in sowas eingefügt werden:
Delphi-Quellcode:
function TDMLSQLiteOfficerFE.CreateTblFile: string;
var SQLstring: String;
begin
SQLstring := 'CREATE TABLE tblFile(FileID INTEGER PRIMARY KEY NOT NULL,'+
'FilePath" VARCHAR(100) NOT NULL,'+
'FileType" VARCHAR(5) NOT NULL,'+
'FileVersion" VARCHAR(3) NOT NULL,'+
'tblDocuments_DocuID" INTEGER NOT NULL,'+
'CONSTRAINT fk_tblFile_tblDocuments1'+
'FOREIGN KEY(tblDocuments_DocuID)'+
'REFERENCES tblDocuments(DocuID"))';
Result := SQLString;
end;
Das heisst: einige der doppelten Hochkommas muss ich entfernen, andere durch einfache ersetzen sowie zusätzlich am Ende jeder Zeile den String abschliessen und, wenn der String in dernächsten Zeile fortgesetzt wird, ein + hinzufügen.
Ich hab das erstmal über Suchen und ersetzen versucht, aber da meckert Delphi:
Zitat:
[Content]
Suchbegriff '"' nicht gefunden
[OK]
Gebe ich nichts ein (was im Dialog sichtbar wird, kann zumindest bei mir auch als vier einzelne Hochkommas interpretiert werden), meckert Delphi:
Zitat:
[Content]
Der Suchtext darf nicht leer sein oder leer entsprechen.
[OK]
Versuche ich das mit dem Sync-Arbeitsmodus, kann ich zwar das erste Zeichen löschen, aber gleich danach wird der markierte Bereich aufgehoben.
Wie kriege ich die doppelten Hochkommas weg, ohne jedes einzeln entfernen zu müssen?
Gruss
Delbor