Lange Strings/Queries im Quellcode umbrechen

[white-desert]

Hai,
hier gehts mir um die Übersichtlichkeit des Quellcodes.
In meinem letzten Projekt habe ich Query-Aufrufe wie diese:

Delphi-Quellcode:

Query :=   'SELECT '+
             'Id, '+
             '(SELECT '+
                 'Baustufen.name '+
               'FROM Baustufen WHERE '+
                 'projekte_baustufen_links.Baustufe_Id = ('+
                   'SELECT ID from my_ids WHERE id = '+ ExtBstId +' ORDER BY Id ASC Limit 1'+
                 ') LIMIT 1), '+
             'von, '+
             'bis '+
           'FROM Projekte_Baustufen_Links '+
           'WHERE Projekt_Id = '+Pr_Id + 
           ' ORDER BY Projekte_Baustufen_Links.Baustufe_Id ASC ';

Eines sieht wohl jeder: Dieses String-Gebilde ist zu unübersichtlich, vor allem wegen diesen vielen Anführungszeichen.

In PHP könnte man das ja so schreiben:

Code:

$Query =  'SELECT 
             Id,
             (SELECT 
                Baustufen.name
                FROM Baustufen WHERE 
                  projekte_baustufen_links.Baustufe_Id = (
                   SELECT ID from my_ids WHERE id = '. $ExtBstId .' ORDER BY Id ASC Limit 1
                  ) LIMIT 1), 
             von, 
             bis 
           FROM Projekte_Baustufen_Links 
           WHERE Projekt_Id = '.$Pr_Id .'
           ORDER BY Projekte_Baustufen_Links.Baustufe_Id ASC ';

Das sieht schon viel einfacher aus und ist auch schneller zu schreiben. Gibt es denn keine ähnliche
Schnell-Schreibweise bei Delphi? Evtl. irgendwelche Prozessorbefehle?
Also dass man einen ewig langen String gaaanz einfach umbrechen und mit Variablen bestuecken kann?

Danke im Voraus für eure Hilfe!

[marabu]

Hallo,

dein Statement sieht bei mir so aus:

SQL-Code:

SELECT id, (
   SELECT name 
   FROM Baustufen 
   WHERE L.Baustufe_Id = (
      SELECT ID 
      FROM my_ids 
      WHERE id = :ExtBstId 
      ORDER BY Id ASC 
      Limit 1
      ) 
   LIMIT 1
   ), von, bis 
FROM Projekte_Baustufen_Links L 
WHERE Projekt_Id = :Pr_Id
ORDER BY L.Baustufe_Id ASC

Manchmal sind auch noch Format-Strings (%s) enthalten. Entwerfen kann ich die Statements im SQL-Editor eines SQL-Werkzeuges. Speichern werde ich es je nach Rahmenbedingung direkt in der Datenbank oder in einer Datei. In einer INI-Datei oder als ResourceString darf das Statement gerne wieder eine einzelne Zeile sein. Muss ich es später überarbeiten, dann bringe ich es wieder in Form - zur Not mit einem SQL Beautifier.

Grüße vom marabu

[Reinhard Kern]

Zitat von white-desert:

Hai,
...
Also dass man einen ewig langen String gaaanz einfach umbrechen und mit Variablen bestuecken kann?

Danke im Voraus für eure Hilfe!

Hallo,

in Delphi/Pascal ist eine String-Konstante auf eine Zeile beschränkt. Ich habe für längere Texte auch schon überlegt, diese in einer anderen Sprache (C,Assembler) zu formulieren, aber Delphi kann ja keine fremden Objects linken, und übersichtlicher ist es auch nicht, wenn die Strings woanders stehen. Bei langen Texten lese ich notfalls von einer txt-Datei ein.

Gruss Reinhard

[oldmax]

Hi
Nun, ich weiß nicht, ob's unbedingt besser ist, aber ich nehm auch eine Stringvariable und "addier" einfach die Gruppen

Delphi-Quellcode:

Query:='Select * from '+ TabelleName;
Query:=Query+' Where ( a= '+ StrWert+ ')';
Query:=Query+' Or( x= '''+ IntToStr(IntWert)+ ''')';

oder so ähnlich...
Im Allgemeinen kopier ich mir die Strings aus einem SQL-Generator und zerleg sie dann in sinnvolle Abschnitte.
Vorteil, ich kann mir einfache oder auch komplizierte Strings immer wieder kopieren und mit wenigen Handgriffen anpassen.
Gruß oldmax

[white-desert]

danke für eure Vorschläge! cu

[alzaimar]

Auch wenn der Fragesteller zufrieden ist...

... Wenn eine Query zu lang ist, packe ich sie in eine View, gebe dem einen aussagekräftigen Namen und habe dann zudem die Option, die View zu verändern, ohne den Code anzufassen...