Zitat:
Du öffnest eine
Query mit Open obwohl du noch eine Nicht-Resultset-
SQL-Anweisung drin hast.
Wo soll diese Anweisung sein ? Im SQL_TEXT ? Wenn Ja, müsste ich wahrscheinlich ein
SQL.Clear einfügen, oder ?
Wenn du ein Clear einfügst dann versuchst du eine leere
SQL-Anweisung zu öffnen -> Wird in einer anderen Fehlermeldung enden.
Ansonsten hat deine
Query immer noch den Wert:
MyQueryDLS.SQL.Text := SQL_TEXT;
Und noch eine Frage, was ist so schwierig zu lesen an dem Code, Einrückungen sind da, Kommentare sind eingefügt, aber ich lasse mir gerne ein Beispiel von Dir geben. Man ist ja lernfähig.
Beispiel:
Gehört zu else wird aber nicht eingerückt
Mmmh.
Aber stimmt. Du hast einrückungen. Aber dadurch das du beginn nich in eine neue Zeile legst wirds m.E. nicht schöner.
Und bitt schmeiß das With raus:
with datam_Dixi do begin
Ist ein maximaler Quell von Fehler da statt deiner Membervariable auf einmal ein with-Variable verwendet wird.
Andere Programmiersprachen vermeiden das indem man den Punkt schreiben muss wenn man die with-Variable ansprechen will.
Bei uns fliegt with immer raus wenn man mal Code überarbeitet.