Einzelnen Beitrag anzeigen

norwegen60

Registriert seit: 23. Dez 2007
Ort: Schwarzwald
504 Beiträge
 
Delphi 12 Athens
 
#1

Mehrzeiligen Text zuweisen incl. '

  Alt 21. Sep 2020, 07:57
In C# gibt es die Möglichkeit, mehrzeiligen Text so zuzuweisen
Code:
            this.AddCmd(@"
            if not exists(select * from information_schema.tables where table_name = 'Tabelle1')
            begin
              create table Tabelle1
              (ID int not null Identity (1,1),
              Datum Datetime,
              Result varchar(15),
              Info varchar(50) null)
              on [primary]
            end
         ");
Diese Zuweisung hat den Vorteil, dass ich den kompletten Textblock kopieren und 1:1 im MsSQL-Manager testen kann

In Delphi kenn ich nur so was
Delphi-Quellcode:
quQuery.SQL.Text := 'if not exists(select * from information_schema.tables where table_name = ''Tabelle1'')';
quQuery.SQL.Add('begin');
quQuery.SQL.Add(' create table Tabelle1');
quQuery.SQL.Add(' (ID int not null Identity (1,1),');
quQuery.SQL.Add(' Datum Datetime,');
quQuery.SQL.Add(' Result varchar(15),');
quQuery.SQL.Add(' Info varchar(50) null)');
quQuery.SQL.Add(' on [primary]');
quQuery.SQL.Add('end');
Entsprechend mühsam ist es den eigentlich relevanten SQL-Text (der auch umfangreicher sein kann) im SQL-Manager zu testen. Zumal auch die doppelten ''Tabelle1'' bei Strings geändert werden müssen.

Hat jemand eine Idee, wie ich den Text ähnlich wie bei C# als ein Block zuweisen kann?

Direkt im quQuery-Editor kann ich es nicht zuweisen, da es viele solcher SQL's hintereinander geben kann.

Vielen Dank im Voraus
  Mit Zitat antworten Zitat