Ist zwar keine Lösung für dein Problem, aber lade doch das Skript aus einer Datei ...
Datei "MeinSelect.sql":
Code:
SELECT lvn1 as Nummer,be1 as Bezeichnung,ein1 as Einheit,me1 as Menge
FROM "{Datei}"
union
SELECT lvn2,be2,ein2,me2
FROM "{Datei}"
union
SELECT lvn3,be3,ein3,me3
FROM "{Datei}"
und dann
Delphi-Quellcode:
SQL.LoadFromFile( '
MeinSelect.sql' );
SQL.Text := StringReplace(
SQL.Text, '
{Datei}', Datei, [ rfReplaceAll ] );
Wie du siehst, verkürzt das den Quelltext ungemein, und du kannst den Select ändern,
ohne ständiges Neucompilieren.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)