tja, da gibt es nur leider zwei Probleme:
Das 1.:
Die Steuerzeichen sind zwar weg, werden aber immer noch Interpretiert, und zwar als "Zeilenumbruch", dass heist in meiner Memo hab ich jetzt für jeden Durchgang der o.g. For-To-Schleife eine Zeile. Das ist natürlich nicht im Sinne des Erfinders
Das 2.:
Mit den 3 von dir genannten Möglichkeiten, wird der _gesamte_ Inhalt meines Memo's mit dem Inhalt der
Query überschrieben. Ich hab aber 6 Querys deren Text ich nacheinander in die Memo schreiben will. So geht das also auch nicht.
Nun hab ich wieder folgendes probiert:
Delphi-Quellcode:
procedure Tf_main.QueryBeforeOpen(DataSet: TDataSet);
begin
Query.SQL.Text := StringReplace(
Query.SQL.Text, #13#10, '
', [rfReplaceAll]);
Memo.Lines.Add(
Query.SQL.Text );
end;
Leider läuft das auch nicht, da die Zeilenumbrüche immer noch angezeigt werden
Folgendes: □□ befindet sich immer noch am Ende der Zeile. Die Zeilenumbrüche zwischen den einzelnen Feldangaben, die aus dem "
SQL.Add" (siehe meine FOR-To-Schleife oben) herrühren, sind aber weg.
Im Klartext:
mit StringReplace:
SELECT id, name, vorname, email, telefon, password, level FROM
access.access □□
ohne StringReplace:
SELECT id □□, name □□, vorname □□, email □□, telefon □□, password □□, level □□ FROM
access.access □□